AGEO PLAGAST_Clinical Final analysis_revisions 05042025
library(swimplot) library(coxphf) library(grid) library(gtable) library(readr) library(mosaic) library(dplyr) library(survival) library(survminer) library(ggplot2) library(scales) library(coxphf) library(ggthemes) library(tidyverse) library(gtsummary) library(flextable) library(parameters) library(car) library(ComplexHeatmap) library(tidyverse) library(readxl) library(survival) library(janitor) library(openxlsx) library(writexl) library(rms) library(pROC) library(DT)
#ctDNA Detection rate by Stage and Window
#Baseline
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.Base <- factor(circ_data$ctDNA.Base, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.Base %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.Base == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.Base, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.Base == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#C2D1
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.C2D1 <- factor(circ_data$ctDNA.C2D1, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.C2D1 %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.C2D1 == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.C2D1, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.C2D1 == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#post-NAC Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.postNAC <- factor(circ_data$ctDNA.postNAC, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.postNAC %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.postNAC == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.postNAC, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.postNAC == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#MRD Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.MRD %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.MRD == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.MRD, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.MRD == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#On-treatment
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.onACT <- factor(circ_data$ctDNA.onACT, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.onACT %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.onACT == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.onACT, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.onACT == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#Surveillance Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.surveillance <- factor(circ_data$ctDNA.surveillance, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.surveillance %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.surveillance == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.surveillance, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.surveillance == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#Post-ACT Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.postACT <- factor(circ_data$ctDNA.postACT, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.postACT %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.postACT == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.postACT, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.postACT == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)
#Post-relapse Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.postRelapse <- factor(circ_data$ctDNA.postRelapse, levels=c("NEGATIVE","POSITIVE"))
circ_data$Stage <- factor(circ_data$Stage, levels=c("I","II","III"))
circ_data <- subset(circ_data, ctDNA.postRelapse %in% c("NEGATIVE", "POSITIVE"))
positive_counts_by_stage <- aggregate(circ_data$ctDNA.postRelapse == "POSITIVE", by=list(circ_data$Stage), FUN=sum)
total_counts_by_stage <- aggregate(circ_data$ctDNA.postRelapse, by=list(circ_data$Stage), FUN=length)
combined_data <- data.frame(
Stage = total_counts_by_stage$Group.1,
Total_Count = total_counts_by_stage$x,
Positive_Count = positive_counts_by_stage$x,
Rate = (positive_counts_by_stage$x / total_counts_by_stage$x) * 100 # Convert to percentage
)
combined_data$Rate <- sprintf("%.2f%%", combined_data$Rate)
overall_total_count <- nrow(circ_data)
overall_positive_count <- nrow(circ_data[circ_data$ctDNA.postRelapse == "POSITIVE",])
overall_positivity_rate <- (overall_positive_count / overall_total_count) * 100 # Convert to percentage
overall_row <- data.frame(
Stage = "Overall",
Total_Count = overall_total_count,
Positive_Count = overall_positive_count,
Rate = sprintf("%.2f%%", overall_positivity_rate)
)
combined_data <- rbind(combined_data, overall_row)
print(combined_data)#Neoadjuvant Treatment duration
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included == TRUE, ]
circ_data$NAC.Start <- as.Date(circ_data$NAC.Start, format="%m/%d/%Y")
circ_data$NAC.End <- as.Date(circ_data$NAC.End, format="%m/%d/%Y")
circ_data$NAC.Duration <- as.numeric(difftime(circ_data$NAC.End, circ_data$NAC.Start, units="days"))
median_duration <- median(circ_data$NAC.Duration, na.rm=TRUE)
range_duration <- range(circ_data$NAC.Duration, na.rm=TRUE)
Q1 <- quantile(circ_data$NAC.Duration, 0.25, na.rm=TRUE)
Q3 <- quantile(circ_data$NAC.Duration, 0.75, na.rm=TRUE)
IQR_value <- IQR(circ_data$NAC.Duration, na.rm=TRUE)
cat("Median NAC Duration:", median_duration, "days\n")Median NAC Duration: 43 dayscat("Range of NAC Duration:", range_duration[1], "-", range_duration[2], "days\n")Range of NAC Duration: 28 - 242 dayscat("Q1 (25th percentile):", Q1, "days\n")Q1 (25th percentile): 42 dayscat("Q3 (75th percentile):", Q3, "days\n")Q3 (75th percentile): 56 dayscat("Interquartile Range (IQR):", IQR_value, "days\n")Interquartile Range (IQR): 14 days#Time of ctDNA draws from start and end of neodjuvant treatment
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included == TRUE, ]
circ_data$NAC.Start <- as.Date(circ_data$NAC.Start, format="%m/%d/%Y")
circ_data$NAC.End <- as.Date(circ_data$NAC.End, format="%m/%d/%Y")
circ_data$ctDNA.C2D1.Date <- as.Date(circ_data$ctDNA.C2D1.Date, format="%m/%d/%Y")
circ_data$ctDNA.postNAC.Date <- as.Date(circ_data$ctDNA.postNAC.Date, format="%m/%d/%Y")
circ_data$Time_to_ctDNA_C2D1 <- as.numeric(difftime(circ_data$ctDNA.C2D1.Date, circ_data$NAC.Start, units="days"))
circ_data$Time_to_ctDNA_postNAC <- as.numeric(difftime(circ_data$ctDNA.postNAC.Date, circ_data$NAC.End, units="days"))
median_ctDNA_C2D1 <- median(circ_data$Time_to_ctDNA_C2D1, na.rm=TRUE)
range_ctDNA_C2D1 <- range(circ_data$Time_to_ctDNA_C2D1, na.rm=TRUE)
Q1_ctDNA_C2D1 <- quantile(circ_data$Time_to_ctDNA_C2D1, 0.25, na.rm=TRUE)
Q3_ctDNA_C2D1 <- quantile(circ_data$Time_to_ctDNA_C2D1, 0.75, na.rm=TRUE)
IQR_ctDNA_C2D1 <- IQR(circ_data$Time_to_ctDNA_C2D1, na.rm=TRUE)
median_ctDNA_postNAC <- median(circ_data$Time_to_ctDNA_postNAC, na.rm=TRUE)
range_ctDNA_postNAC <- range(circ_data$Time_to_ctDNA_postNAC, na.rm=TRUE)
Q1_ctDNA_postNAC <- quantile(circ_data$Time_to_ctDNA_postNAC, 0.25, na.rm=TRUE)
Q3_ctDNA_postNAC <- quantile(circ_data$Time_to_ctDNA_postNAC, 0.75, na.rm=TRUE)
IQR_ctDNA_postNAC <- IQR(circ_data$Time_to_ctDNA_postNAC, na.rm=TRUE)
cat("Median time from NAC start to ctDNA draw during NAC:", median_ctDNA_C2D1, "days\n")Median time from NAC start to ctDNA draw during NAC: 14 dayscat("Range:", range_ctDNA_C2D1[1], "-", range_ctDNA_C2D1[2], "days\n")Range: 10 - 111 dayscat("Q1 (25th percentile):", Q1_ctDNA_C2D1, "days\n")Q1 (25th percentile): 14 dayscat("Q3 (75th percentile):", Q3_ctDNA_C2D1, "days\n")Q3 (75th percentile): 28 dayscat("Interquartile Range (IQR):", IQR_ctDNA_C2D1, "days\n\n")Interquartile Range (IQR): 14 dayscat("Median time from NAC end to ctDNA draw post-NAC:", median_ctDNA_postNAC, "days\n")Median time from NAC end to ctDNA draw post-NAC: 0 dayscat("Range:", range_ctDNA_postNAC[1], "-", range_ctDNA_postNAC[2], "days\n")Range: -4 - 64 dayscat("Q1 (25th percentile):", Q1_ctDNA_postNAC, "days\n")Q1 (25th percentile): 0 dayscat("Q3 (75th percentile):", Q3_ctDNA_postNAC, "days\n")Q3 (75th percentile): 12 dayscat("Interquartile Range (IQR):", IQR_ctDNA_postNAC, "days\n")Interquartile Range (IQR): 12 days#Demographics Table
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data_subset <- circ_data %>%
select(
Age,
Gender,
PrimSite,
NAC,
NAC.Regimen,
TRG.Mandard,
TNM,
Stage,
Grade,
Lauren.Class,
Margins,
ACT,
ACT.Regimen,
DFS.Event,
OS.Event,
FU.months) %>%
mutate(
Age = as.numeric(Age),
Gender = factor(Gender, levels = c("Male", "Female")),
PrimSite = factor(PrimSite, levels = c("Stomach", "G/J", "Oesophagus")),
NAC = factor(NAC, levels = c("TRUE", "FALSE"), labels = c("Neoadjuvant Therapy", "Upfront Surgery")),
NAC.Regimen = factor(NAC.Regimen),
TRG.Mandard = factor(TRG.Mandard, levels = c("TRG1","TRG2", "TRG3", "TRG4", "TRG5")),
TNM = factor(TNM, levels = c("T0-TisN0M0","T1-T2N0", "T2-T3N0-N1", "T2N1-N2", "T3N2-N3", "T4N0-N1", "T4N2-N3")),
Stage = factor(Stage, levels = c("0","I","II", "III")),
Grade = factor(Grade, levels = c("G1", "G2", "G3")),
Lauren.Class = factor(Lauren.Class),
Margins = factor(Margins, levels = c("R0", "R1")),
ACT = factor(ACT, levels = c("TRUE", "FALSE"), labels = c("Adjuvant Treatment", "Observation")),
ACT.Regimen = factor(ACT.Regimen),
DFS.Event = factor(DFS.Event, levels = c("TRUE", "FALSE"), labels = c("Recurrence", "No Recurrence")),
OS.Event = factor(OS.Event, levels = c("TRUE", "FALSE"), labels = c("Deceased", "Alive")),
FU.months = as.numeric(FU.months))
table1 <- circ_data_subset %>%
tbl_summary(
statistic = list(
all_continuous() ~ "{median} ({min} - {max})",
all_categorical() ~ "{n} ({p}%)")) %>%
bold_labels()
table1| Characteristic | N = 621 |
|---|---|
| Age | 66 (34 - 86) |
| Gender | |
| Â Â Â Â Male | 39 (63%) |
| Â Â Â Â Female | 23 (37%) |
| PrimSite | |
| Â Â Â Â Stomach | 38 (61%) |
| Â Â Â Â G/J | 24 (39%) |
| Â Â Â Â Oesophagus | 0 (0%) |
| NAC | |
| Â Â Â Â Neoadjuvant Therapy | 55 (89%) |
| Â Â Â Â Upfront Surgery | 7 (11%) |
| NAC.Regimen | |
| Â Â Â Â | 7 (11%) |
| Â Â Â Â Chemoimmunotherapy | 7 (11%) |
| Â Â Â Â Chemotherapy | 47 (76%) |
| Â Â Â Â Radiotherapy | 1 (1.6%) |
| TRG.Mandard | |
| Â Â Â Â TRG1 | 3 (5.5%) |
| Â Â Â Â TRG2 | 8 (15%) |
| Â Â Â Â TRG3 | 21 (38%) |
| Â Â Â Â TRG4 | 16 (29%) |
| Â Â Â Â TRG5 | 7 (13%) |
| Â Â Â Â Unknown | 7 |
| TNM | |
| Â Â Â Â T0-TisN0M0 | 3 (4.8%) |
| Â Â Â Â T1-T2N0 | 16 (26%) |
| Â Â Â Â T2-T3N0-N1 | 17 (27%) |
| Â Â Â Â T2N1-N2 | 2 (3.2%) |
| Â Â Â Â T3N2-N3 | 8 (13%) |
| Â Â Â Â T4N0-N1 | 9 (15%) |
| Â Â Â Â T4N2-N3 | 7 (11%) |
| Stage | |
| Â Â Â Â 0 | 3 (4.8%) |
| Â Â Â Â I | 16 (26%) |
| Â Â Â Â II | 26 (42%) |
| Â Â Â Â III | 17 (27%) |
| Grade | |
| Â Â Â Â G1 | 11 (28%) |
| Â Â Â Â G2 | 21 (53%) |
| Â Â Â Â G3 | 8 (20%) |
| Â Â Â Â Unknown | 22 |
| Lauren.Class | |
| Â Â Â Â | 5 (8.1%) |
| Â Â Â Â Diffuse | 18 (29%) |
| Â Â Â Â Intestinal | 34 (55%) |
| Â Â Â Â Mixed | 5 (8.1%) |
| Margins | |
| Â Â Â Â R0 | 61 (98%) |
| Â Â Â Â R1 | 1 (1.6%) |
| ACT | |
| Â Â Â Â Adjuvant Treatment | 53 (85%) |
| Â Â Â Â Observation | 9 (15%) |
| ACT.Regimen | |
| Â Â Â Â | 9 (15%) |
| Â Â Â Â Chemoimmunotherapy | 4 (6.5%) |
| Â Â Â Â Chemotherapy | 48 (77%) |
| Â Â Â Â Immunotherapy | 1 (1.6%) |
| DFS.Event | |
| Â Â Â Â Recurrence | 29 (47%) |
| Â Â Â Â No Recurrence | 33 (53%) |
| OS.Event | |
| Â Â Â Â Deceased | 19 (31%) |
| Â Â Â Â Alive | 43 (69%) |
| FU.months | 29 (2 - 93) |
| 1 Median (Min - Max); n (%) | |
fit1 <- as_flex_table(
table1,
include = everything(),
return_calls = FALSE
)
fit1Characteristic | N = 621 |
|---|---|
Age | 66 (34 - 86) |
Gender | |
Male | 39 (63%) |
Female | 23 (37%) |
PrimSite | |
Stomach | 38 (61%) |
G/J | 24 (39%) |
Oesophagus | 0 (0%) |
NAC | |
Neoadjuvant Therapy | 55 (89%) |
Upfront Surgery | 7 (11%) |
NAC.Regimen | |
7 (11%) | |
Chemoimmunotherapy | 7 (11%) |
Chemotherapy | 47 (76%) |
Radiotherapy | 1 (1.6%) |
TRG.Mandard | |
TRG1 | 3 (5.5%) |
TRG2 | 8 (15%) |
TRG3 | 21 (38%) |
TRG4 | 16 (29%) |
TRG5 | 7 (13%) |
Unknown | 7 |
TNM | |
T0-TisN0M0 | 3 (4.8%) |
T1-T2N0 | 16 (26%) |
T2-T3N0-N1 | 17 (27%) |
T2N1-N2 | 2 (3.2%) |
T3N2-N3 | 8 (13%) |
T4N0-N1 | 9 (15%) |
T4N2-N3 | 7 (11%) |
Stage | |
0 | 3 (4.8%) |
I | 16 (26%) |
II | 26 (42%) |
III | 17 (27%) |
Grade | |
G1 | 11 (28%) |
G2 | 21 (53%) |
G3 | 8 (20%) |
Unknown | 22 |
Lauren.Class | |
5 (8.1%) | |
Diffuse | 18 (29%) |
Intestinal | 34 (55%) |
Mixed | 5 (8.1%) |
Margins | |
R0 | 61 (98%) |
R1 | 1 (1.6%) |
ACT | |
Adjuvant Treatment | 53 (85%) |
Observation | 9 (15%) |
ACT.Regimen | |
9 (15%) | |
Chemoimmunotherapy | 4 (6.5%) |
Chemotherapy | 48 (77%) |
Immunotherapy | 1 (1.6%) |
DFS.Event | |
Recurrence | 29 (47%) |
No Recurrence | 33 (53%) |
OS.Event | |
Deceased | 19 (31%) |
Alive | 43 (69%) |
FU.months | 29 (2 - 93) |
1Median (Min - Max); n (%) | |
save_as_docx(fit1, path= "~/Downloads/table1.docx")#Demographics Table for those that included vs excluded from the study
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data_subset1 <- circ_data %>%
select(
Age,
Gender,
PrimSite,
NAC,
NAC.Regimen,
TRG.Mandard,
TNM,
Stage,
Grade,
Lauren.Class,
Margins,
ACT,
ACT.Regimen,
DFS.Event,
OS.Event,
FU.months) %>%
mutate(
Age = as.numeric(Age),
Gender = factor(Gender, levels = c("Male", "Female")),
PrimSite = factor(PrimSite, levels = c("Stomach", "G/J", "Oesophagus")),
NAC = factor(NAC, levels = c("TRUE", "FALSE"), labels = c("Neoadjuvant Therapy", "Upfront Surgery")),
NAC.Regimen = factor(NAC.Regimen),
TRG.Mandard = factor(TRG.Mandard, levels = c("TRG1","TRG2", "TRG3", "TRG4", "TRG5")),
TNM = factor(TNM, levels = c("T0-TisN0M0","T1-T2N0", "T2-T3N0-N1", "T2N1-N2", "T3N2-N3", "T4N0-N1", "T4N2-N3")),
Stage = factor(Stage, levels = c("0","I","II", "III")),
Grade = factor(Grade, levels = c("G1", "G2", "G3")),
Lauren.Class = factor(Lauren.Class),
Margins = factor(Margins, levels = c("R0", "R1")),
ACT = factor(ACT, levels = c("TRUE", "FALSE"), labels = c("Adjuvant Treatment", "Observation")),
ACT.Regimen = factor(ACT.Regimen),
DFS.Event = factor(DFS.Event, levels = c("TRUE", "FALSE"), labels = c("Recurrence", "No Recurrence")),
OS.Event = factor(OS.Event, levels = c("TRUE", "FALSE"), labels = c("Deceased", "Alive")),
FU.months = as.numeric(FU.months))
circ_data1 <- read.csv("PLAGAST_Clinical Data.csv")
circ_data_subset2 <- circ_data %>%
select(
Age,
Gender,
PrimSite,
NAC,
NAC.Regimen,
TRG.Mandard,
TNM,
Stage,
Grade,
Lauren.Class,
Margins,
ACT,
ACT.Regimen,
DFS.Event,
OS.Event,
FU.months,
Included) %>%
mutate(
Age = as.numeric(Age),
Gender = factor(Gender, levels = c("Male", "Female")),
PrimSite = factor(PrimSite, levels = c("Stomach", "G/J", "Oesophagus")),
NAC = factor(NAC, levels = c("TRUE", "FALSE"), labels = c("Neoadjuvant Therapy", "Upfront Surgery")),
NAC.Regimen = factor(NAC.Regimen),
TRG.Mandard = factor(TRG.Mandard, levels = c("TRG1","TRG2", "TRG3", "TRG4", "TRG5")),
TNM = factor(TNM, levels = c("T0-TisN0M0","T1-T2N0", "T2-T3N0-N1", "T2N1-N2", "T3N2-N3", "T4N0-N1", "T4N2-N3")),
Stage = factor(Stage, levels = c("0","I","II", "III")),
Grade = factor(Grade, levels = c("G1", "G2", "G3")),
Lauren.Class = factor(Lauren.Class),
Margins = factor(Margins, levels = c("R0", "R1")),
ACT = factor(ACT, levels = c("TRUE", "FALSE"), labels = c("Adjuvant Treatment", "Observation")),
ACT.Regimen = factor(ACT.Regimen),
DFS.Event = factor(DFS.Event, levels = c("TRUE", "FALSE"), labels = c("Recurrence", "No Recurrence")),
OS.Event = factor(OS.Event, levels = c("TRUE", "FALSE"), labels = c("Deceased", "Alive")),
FU.months = as.numeric(FU.months),
Included = factor(Included, levels = c("TRUE", "FALSE"), labels = c("Included", "Excluded")))
Overall <- circ_data_subset1 %>%
tbl_summary(
statistic = list(
all_continuous() ~ "{median} ({min} - {max})",
all_categorical() ~ "{n} ({p}%)")) %>%
bold_labels()
Overall| Characteristic | N = 821 |
|---|---|
| Age | 67 (34 - 86) |
| Gender | |
| Â Â Â Â Male | 51 (62%) |
| Â Â Â Â Female | 31 (38%) |
| PrimSite | |
| Â Â Â Â Stomach | 54 (66%) |
| Â Â Â Â G/J | 28 (34%) |
| Â Â Â Â Oesophagus | 0 (0%) |
| NAC | |
| Â Â Â Â Neoadjuvant Therapy | 74 (90%) |
| Â Â Â Â Upfront Surgery | 8 (9.8%) |
| NAC.Regimen | |
| Â Â Â Â | 8 (9.8%) |
| Â Â Â Â Chemoimmunotherapy | 8 (9.8%) |
| Â Â Â Â Chemotherapy | 65 (79%) |
| Â Â Â Â Radiotherapy | 1 (1.2%) |
| TRG.Mandard | |
| Â Â Â Â TRG1 | 4 (5.6%) |
| Â Â Â Â TRG2 | 14 (19%) |
| Â Â Â Â TRG3 | 26 (36%) |
| Â Â Â Â TRG4 | 19 (26%) |
| Â Â Â Â TRG5 | 9 (13%) |
| Â Â Â Â Unknown | 10 |
| TNM | |
| Â Â Â Â T0-TisN0M0 | 3 (3.7%) |
| Â Â Â Â T1-T2N0 | 25 (30%) |
| Â Â Â Â T2-T3N0-N1 | 21 (26%) |
| Â Â Â Â T2N1-N2 | 4 (4.9%) |
| Â Â Â Â T3N2-N3 | 9 (11%) |
| Â Â Â Â T4N0-N1 | 12 (15%) |
| Â Â Â Â T4N2-N3 | 8 (9.8%) |
| Stage | |
| Â Â Â Â 0 | 3 (3.7%) |
| Â Â Â Â I | 25 (30%) |
| Â Â Â Â II | 33 (40%) |
| Â Â Â Â III | 21 (26%) |
| Grade | |
| Â Â Â Â G1 | 14 (26%) |
| Â Â Â Â G2 | 27 (50%) |
| Â Â Â Â G3 | 13 (24%) |
| Â Â Â Â Unknown | 28 |
| Lauren.Class | |
| Â Â Â Â | 8 (9.8%) |
| Â Â Â Â Diffuse | 21 (26%) |
| Â Â Â Â Intestinal | 45 (55%) |
| Â Â Â Â Mixed | 8 (9.8%) |
| Margins | |
| Â Â Â Â R0 | 78 (95%) |
| Â Â Â Â R1 | 4 (4.9%) |
| ACT | |
| Â Â Â Â Adjuvant Treatment | 68 (83%) |
| Â Â Â Â Observation | 14 (17%) |
| ACT.Regimen | |
| Â Â Â Â | 19 (23%) |
| Â Â Â Â Chemoimmunotherapy | 4 (4.9%) |
| Â Â Â Â Chemotherapy | 58 (71%) |
| Â Â Â Â Immunotherapy | 1 (1.2%) |
| DFS.Event | |
| Â Â Â Â Recurrence | 37 (45%) |
| Â Â Â Â No Recurrence | 45 (55%) |
| OS.Event | |
| Â Â Â Â Deceased | 25 (30%) |
| Â Â Â Â Alive | 57 (70%) |
| FU.months | 32 (2 - 93) |
| 1 Median (Min - Max); n (%) | |
ByctDNA_MRD <- circ_data_subset2 %>%
tbl_summary(
by = Included, # Subgroup by Included
statistic = list(
all_continuous() ~ "{median} ({min} - {max})",
all_categorical() ~ "{n} ({p}%)")) %>%
add_p(test = all_categorical() ~ "fisher.test", pvalue_fun = ~style_pvalue(p.adjust(.x, method = "bonferroni"))) %>%
bold_labels()
ByctDNA_MRD| Characteristic | Included N = 621 |
Excluded N = 201 |
p-value2 |
|---|---|---|---|
| Age | 66 (34 - 86) | 70 (44 - 82) | 0.8 |
| Gender | >0.9 | ||
| Â Â Â Â Male | 39 (63%) | 12 (60%) | |
| Â Â Â Â Female | 23 (37%) | 8 (40%) | |
| PrimSite | >0.9 | ||
| Â Â Â Â Stomach | 38 (61%) | 16 (80%) | |
| Â Â Â Â G/J | 24 (39%) | 4 (20%) | |
| Â Â Â Â Oesophagus | 0 (0%) | 0 (0%) | |
| NAC | >0.9 | ||
| Â Â Â Â Neoadjuvant Therapy | 55 (89%) | 19 (95%) | |
| Â Â Â Â Upfront Surgery | 7 (11%) | 1 (5.0%) | |
| NAC.Regimen | >0.9 | ||
| Â Â Â Â | 7 (11%) | 1 (5.0%) | |
| Â Â Â Â Chemoimmunotherapy | 7 (11%) | 1 (5.0%) | |
| Â Â Â Â Chemotherapy | 47 (76%) | 18 (90%) | |
| Â Â Â Â Radiotherapy | 1 (1.6%) | 0 (0%) | |
| TRG.Mandard | >0.9 | ||
| Â Â Â Â TRG1 | 3 (5.5%) | 1 (5.9%) | |
| Â Â Â Â TRG2 | 8 (15%) | 6 (35%) | |
| Â Â Â Â TRG3 | 21 (38%) | 5 (29%) | |
| Â Â Â Â TRG4 | 16 (29%) | 3 (18%) | |
| Â Â Â Â TRG5 | 7 (13%) | 2 (12%) | |
| Â Â Â Â Unknown | 7 | 3 | |
| TNM | >0.9 | ||
| Â Â Â Â T0-TisN0M0 | 3 (4.8%) | 0 (0%) | |
| Â Â Â Â T1-T2N0 | 16 (26%) | 9 (45%) | |
| Â Â Â Â T2-T3N0-N1 | 17 (27%) | 4 (20%) | |
| Â Â Â Â T2N1-N2 | 2 (3.2%) | 2 (10%) | |
| Â Â Â Â T3N2-N3 | 8 (13%) | 1 (5.0%) | |
| Â Â Â Â T4N0-N1 | 9 (15%) | 3 (15%) | |
| Â Â Â Â T4N2-N3 | 7 (11%) | 1 (5.0%) | |
| Stage | >0.9 | ||
| Â Â Â Â 0 | 3 (4.8%) | 0 (0%) | |
| Â Â Â Â I | 16 (26%) | 9 (45%) | |
| Â Â Â Â II | 26 (42%) | 7 (35%) | |
| Â Â Â Â III | 17 (27%) | 4 (20%) | |
| Grade | >0.9 | ||
| Â Â Â Â G1 | 11 (28%) | 3 (21%) | |
| Â Â Â Â G2 | 21 (53%) | 6 (43%) | |
| Â Â Â Â G3 | 8 (20%) | 5 (36%) | |
| Â Â Â Â Unknown | 22 | 6 | |
| Lauren.Class | >0.9 | ||
| Â Â Â Â | 5 (8.1%) | 3 (15%) | |
| Â Â Â Â Diffuse | 18 (29%) | 3 (15%) | |
| Â Â Â Â Intestinal | 34 (55%) | 11 (55%) | |
| Â Â Â Â Mixed | 5 (8.1%) | 3 (15%) | |
| Margins | 0.7 | ||
| Â Â Â Â R0 | 61 (98%) | 17 (85%) | |
| Â Â Â Â R1 | 1 (1.6%) | 3 (15%) | |
| ACT | >0.9 | ||
| Â Â Â Â Adjuvant Treatment | 53 (85%) | 15 (75%) | |
| Â Â Â Â Observation | 9 (15%) | 5 (25%) | |
| ACT.Regimen | 0.2 | ||
| Â Â Â Â | 9 (15%) | 10 (50%) | |
| Â Â Â Â Chemoimmunotherapy | 4 (6.5%) | 0 (0%) | |
| Â Â Â Â Chemotherapy | 48 (77%) | 10 (50%) | |
| Â Â Â Â Immunotherapy | 1 (1.6%) | 0 (0%) | |
| DFS.Event | >0.9 | ||
| Â Â Â Â Recurrence | 29 (47%) | 8 (40%) | |
| Â Â Â Â No Recurrence | 33 (53%) | 12 (60%) | |
| OS.Event | >0.9 | ||
| Â Â Â Â Deceased | 19 (31%) | 6 (30%) | |
| Â Â Â Â Alive | 43 (69%) | 14 (70%) | |
| FU.months | 29 (2 - 93) | 34 (7 - 68) | >0.9 |
| 1 Median (Min - Max); n (%) | |||
| 2 Wilcoxon rank sum test; Fisher’s exact test | |||
merged_table <- tbl_merge(tbls=list(Overall, ByctDNA_MRD))
merged_table| Characteristic |
Table 1
|
Table 2
|
||
|---|---|---|---|---|
| N = 821 | Included N = 621 |
Excluded N = 201 |
p-value2 | |
| Age | 67 (34 - 86) | 66 (34 - 86) | 70 (44 - 82) | 0.8 |
| Gender | >0.9 | |||
| Â Â Â Â Male | 51 (62%) | 39 (63%) | 12 (60%) | |
| Â Â Â Â Female | 31 (38%) | 23 (37%) | 8 (40%) | |
| PrimSite | >0.9 | |||
| Â Â Â Â Stomach | 54 (66%) | 38 (61%) | 16 (80%) | |
| Â Â Â Â G/J | 28 (34%) | 24 (39%) | 4 (20%) | |
| Â Â Â Â Oesophagus | 0 (0%) | 0 (0%) | 0 (0%) | |
| NAC | >0.9 | |||
| Â Â Â Â Neoadjuvant Therapy | 74 (90%) | 55 (89%) | 19 (95%) | |
| Â Â Â Â Upfront Surgery | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
| NAC.Regimen | >0.9 | |||
| Â Â Â Â | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
| Â Â Â Â Chemoimmunotherapy | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
| Â Â Â Â Chemotherapy | 65 (79%) | 47 (76%) | 18 (90%) | |
| Â Â Â Â Radiotherapy | 1 (1.2%) | 1 (1.6%) | 0 (0%) | |
| TRG.Mandard | >0.9 | |||
| Â Â Â Â TRG1 | 4 (5.6%) | 3 (5.5%) | 1 (5.9%) | |
| Â Â Â Â TRG2 | 14 (19%) | 8 (15%) | 6 (35%) | |
| Â Â Â Â TRG3 | 26 (36%) | 21 (38%) | 5 (29%) | |
| Â Â Â Â TRG4 | 19 (26%) | 16 (29%) | 3 (18%) | |
| Â Â Â Â TRG5 | 9 (13%) | 7 (13%) | 2 (12%) | |
| Â Â Â Â Unknown | 10 | 7 | 3 | |
| TNM | >0.9 | |||
| Â Â Â Â T0-TisN0M0 | 3 (3.7%) | 3 (4.8%) | 0 (0%) | |
| Â Â Â Â T1-T2N0 | 25 (30%) | 16 (26%) | 9 (45%) | |
| Â Â Â Â T2-T3N0-N1 | 21 (26%) | 17 (27%) | 4 (20%) | |
| Â Â Â Â T2N1-N2 | 4 (4.9%) | 2 (3.2%) | 2 (10%) | |
| Â Â Â Â T3N2-N3 | 9 (11%) | 8 (13%) | 1 (5.0%) | |
| Â Â Â Â T4N0-N1 | 12 (15%) | 9 (15%) | 3 (15%) | |
| Â Â Â Â T4N2-N3 | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
| Stage | >0.9 | |||
| Â Â Â Â 0 | 3 (3.7%) | 3 (4.8%) | 0 (0%) | |
| Â Â Â Â I | 25 (30%) | 16 (26%) | 9 (45%) | |
| Â Â Â Â II | 33 (40%) | 26 (42%) | 7 (35%) | |
| Â Â Â Â III | 21 (26%) | 17 (27%) | 4 (20%) | |
| Grade | >0.9 | |||
| Â Â Â Â G1 | 14 (26%) | 11 (28%) | 3 (21%) | |
| Â Â Â Â G2 | 27 (50%) | 21 (53%) | 6 (43%) | |
| Â Â Â Â G3 | 13 (24%) | 8 (20%) | 5 (36%) | |
| Â Â Â Â Unknown | 28 | 22 | 6 | |
| Lauren.Class | >0.9 | |||
| Â Â Â Â | 8 (9.8%) | 5 (8.1%) | 3 (15%) | |
| Â Â Â Â Diffuse | 21 (26%) | 18 (29%) | 3 (15%) | |
| Â Â Â Â Intestinal | 45 (55%) | 34 (55%) | 11 (55%) | |
| Â Â Â Â Mixed | 8 (9.8%) | 5 (8.1%) | 3 (15%) | |
| Margins | 0.7 | |||
| Â Â Â Â R0 | 78 (95%) | 61 (98%) | 17 (85%) | |
| Â Â Â Â R1 | 4 (4.9%) | 1 (1.6%) | 3 (15%) | |
| ACT | >0.9 | |||
| Â Â Â Â Adjuvant Treatment | 68 (83%) | 53 (85%) | 15 (75%) | |
| Â Â Â Â Observation | 14 (17%) | 9 (15%) | 5 (25%) | |
| ACT.Regimen | 0.2 | |||
| Â Â Â Â | 19 (23%) | 9 (15%) | 10 (50%) | |
| Â Â Â Â Chemoimmunotherapy | 4 (4.9%) | 4 (6.5%) | 0 (0%) | |
| Â Â Â Â Chemotherapy | 58 (71%) | 48 (77%) | 10 (50%) | |
| Â Â Â Â Immunotherapy | 1 (1.2%) | 1 (1.6%) | 0 (0%) | |
| DFS.Event | >0.9 | |||
| Â Â Â Â Recurrence | 37 (45%) | 29 (47%) | 8 (40%) | |
| Â Â Â Â No Recurrence | 45 (55%) | 33 (53%) | 12 (60%) | |
| OS.Event | >0.9 | |||
| Â Â Â Â Deceased | 25 (30%) | 19 (31%) | 6 (30%) | |
| Â Â Â Â Alive | 57 (70%) | 43 (69%) | 14 (70%) | |
| FU.months | 32 (2 - 93) | 29 (2 - 93) | 34 (7 - 68) | >0.9 |
| 1 Median (Min - Max); n (%) | ||||
| 2 Wilcoxon rank sum test; Fisher’s exact test | ||||
fit1 <- as_flex_table(
merged_table,
include = everything(),
return_calls = FALSE)
fit1
| Table 1 | Table 2 | ||
|---|---|---|---|---|
Characteristic | N = 821 | Included | Excluded | p-value2 |
Age | 67 (34 - 86) | 66 (34 - 86) | 70 (44 - 82) | 0.8 |
Gender | >0.9 | |||
Male | 51 (62%) | 39 (63%) | 12 (60%) | |
Female | 31 (38%) | 23 (37%) | 8 (40%) | |
PrimSite | >0.9 | |||
Stomach | 54 (66%) | 38 (61%) | 16 (80%) | |
G/J | 28 (34%) | 24 (39%) | 4 (20%) | |
Oesophagus | 0 (0%) | 0 (0%) | 0 (0%) | |
NAC | >0.9 | |||
Neoadjuvant Therapy | 74 (90%) | 55 (89%) | 19 (95%) | |
Upfront Surgery | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
NAC.Regimen | >0.9 | |||
8 (9.8%) | 7 (11%) | 1 (5.0%) | ||
Chemoimmunotherapy | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
Chemotherapy | 65 (79%) | 47 (76%) | 18 (90%) | |
Radiotherapy | 1 (1.2%) | 1 (1.6%) | 0 (0%) | |
TRG.Mandard | >0.9 | |||
TRG1 | 4 (5.6%) | 3 (5.5%) | 1 (5.9%) | |
TRG2 | 14 (19%) | 8 (15%) | 6 (35%) | |
TRG3 | 26 (36%) | 21 (38%) | 5 (29%) | |
TRG4 | 19 (26%) | 16 (29%) | 3 (18%) | |
TRG5 | 9 (13%) | 7 (13%) | 2 (12%) | |
Unknown | 10 | 7 | 3 | |
TNM | >0.9 | |||
T0-TisN0M0 | 3 (3.7%) | 3 (4.8%) | 0 (0%) | |
T1-T2N0 | 25 (30%) | 16 (26%) | 9 (45%) | |
T2-T3N0-N1 | 21 (26%) | 17 (27%) | 4 (20%) | |
T2N1-N2 | 4 (4.9%) | 2 (3.2%) | 2 (10%) | |
T3N2-N3 | 9 (11%) | 8 (13%) | 1 (5.0%) | |
T4N0-N1 | 12 (15%) | 9 (15%) | 3 (15%) | |
T4N2-N3 | 8 (9.8%) | 7 (11%) | 1 (5.0%) | |
Stage | >0.9 | |||
0 | 3 (3.7%) | 3 (4.8%) | 0 (0%) | |
I | 25 (30%) | 16 (26%) | 9 (45%) | |
II | 33 (40%) | 26 (42%) | 7 (35%) | |
III | 21 (26%) | 17 (27%) | 4 (20%) | |
Grade | >0.9 | |||
G1 | 14 (26%) | 11 (28%) | 3 (21%) | |
G2 | 27 (50%) | 21 (53%) | 6 (43%) | |
G3 | 13 (24%) | 8 (20%) | 5 (36%) | |
Unknown | 28 | 22 | 6 | |
Lauren.Class | >0.9 | |||
8 (9.8%) | 5 (8.1%) | 3 (15%) | ||
Diffuse | 21 (26%) | 18 (29%) | 3 (15%) | |
Intestinal | 45 (55%) | 34 (55%) | 11 (55%) | |
Mixed | 8 (9.8%) | 5 (8.1%) | 3 (15%) | |
Margins | 0.7 | |||
R0 | 78 (95%) | 61 (98%) | 17 (85%) | |
R1 | 4 (4.9%) | 1 (1.6%) | 3 (15%) | |
ACT | >0.9 | |||
Adjuvant Treatment | 68 (83%) | 53 (85%) | 15 (75%) | |
Observation | 14 (17%) | 9 (15%) | 5 (25%) | |
ACT.Regimen | 0.2 | |||
19 (23%) | 9 (15%) | 10 (50%) | ||
Chemoimmunotherapy | 4 (4.9%) | 4 (6.5%) | 0 (0%) | |
Chemotherapy | 58 (71%) | 48 (77%) | 10 (50%) | |
Immunotherapy | 1 (1.2%) | 1 (1.6%) | 0 (0%) | |
DFS.Event | >0.9 | |||
Recurrence | 37 (45%) | 29 (47%) | 8 (40%) | |
No Recurrence | 45 (55%) | 33 (53%) | 12 (60%) | |
OS.Event | >0.9 | |||
Deceased | 25 (30%) | 19 (31%) | 6 (30%) | |
Alive | 57 (70%) | 43 (69%) | 14 (70%) | |
FU.months | 32 (2 - 93) | 29 (2 - 93) | 34 (7 - 68) | >0.9 |
1Median (Min - Max); n (%) | ||||
2Wilcoxon rank sum test; Fisher's exact test | ||||
save_as_docx(fit1, path= "~/Downloads/merged_table.docx")#RFS by inclusion status
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~Included, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
Included, data = circ_data)
n events median 0.95LCL 0.95UCL
Included=FALSE 20 8 52.0 31.4 NA
Included=TRUE 62 29 42.1 18.6 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ Included, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - Inclusion status", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("Included", "Excluded"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ Included, data = circ_data, conf.int = 0.95,
conf.type = "log-log")
Included=FALSE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 12.000 5.000 0.718 0.107 0.449 0.872
Included=TRUE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 26.0000 27.0000 0.5396 0.0661 0.4024 0.6582 circ_data$Included <- factor(circ_data$Included, levels=c("TRUE","FALSE"))
cox_fit <- coxph(surv_object ~ Included, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ Included, data = circ_data)
n= 82, number of events= 37
coef exp(coef) se(coef) z Pr(>|z|)
IncludedFALSE -0.2622 0.7693 0.3998 -0.656 0.512
exp(coef) exp(-coef) lower .95 upper .95
IncludedFALSE 0.7693 1.3 0.3514 1.684
Concordance= 0.546 (se = 0.031 )
Likelihood ratio test= 0.45 on 1 df, p=0.5
Wald test = 0.43 on 1 df, p=0.5
Score (logrank) test = 0.43 on 1 df, p=0.5cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 0.77 (0.35-1.68); p = 0.512"#OS by inclusion status
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~Included, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
Included, data = circ_data)
n events median 0.95LCL 0.95UCL
Included=FALSE 20 6 NA 37.4 NA
Included=TRUE 62 19 NA 52.7 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ Included, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - Inclusion status", ylab= "Overall Survival", xlab="Months from surgery", legend.labs=c("Included", "Excluded"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ Included, data = circ_data, conf.int = 0.95,
conf.type = "log-log")
Included=FALSE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 15.0000 3.0000 0.8382 0.0858 0.5770 0.9450
Included=TRUE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 34.0000 14.0000 0.7568 0.0572 0.6225 0.8489 circ_data$Included <- factor(circ_data$Included, levels=c("TRUE","FALSE"))
cox_fit <- coxph(surv_object ~ Included, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ Included, data = circ_data)
n= 82, number of events= 25
coef exp(coef) se(coef) z Pr(>|z|)
IncludedFALSE -0.09663 0.90789 0.46937 -0.206 0.837
exp(coef) exp(-coef) lower .95 upper .95
IncludedFALSE 0.9079 1.101 0.3618 2.278
Concordance= 0.524 (se = 0.041 )
Likelihood ratio test= 0.04 on 1 df, p=0.8
Wald test = 0.04 on 1 df, p=0.8
Score (logrank) test = 0.04 on 1 df, p=0.8cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 0.91 (0.36-2.28); p = 0.837"#Heatmap with Clinical & Genomics Factors
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data %>% arrange(Stage)
circ_datadf <- as.data.frame(circ_data)
ha <- HeatmapAnnotation(
Stage = circ_data$Stage,
Gender = circ_data$Gender,
PrimSite = circ_data$PrimSite,
NAC = circ_data$NAC,
ACT = circ_data$ACT,
ctDNA.Base = circ_data$ctDNA.Base,
ctDNA.C2D1 = circ_data$ctDNA.C2D1,
ctDNA.postNAC = circ_data$ctDNA.postNAC,
ctDNA.MRD = circ_data$ctDNA.MRD,
ctDNA.surveillance = circ_data$ctDNA.surveillance,
DFS.Event = circ_data$DFS.Event,
OS.Event = circ_data$OS.Event,
col = list(Stage = c("0" = "seagreen1", "I" = "seagreen1", "II" = "orange", "III" = "purple"),
Gender = c("Female" = "goldenrod" , "Male" = "blue4"),
PrimSite = c("Stomach" = "brown", "G/J" = "darkgreen", "Oesophagus" = "orange4"),
NAC = c("FALSE" = "cornflowerblue", "TRUE" ="darkmagenta"),
ACT = c("TRUE" = "brown4", "FALSE" ="khaki"),
ctDNA.Base = c("POSITIVE" = "red3", "NEGATIVE" ="blue"),
ctDNA.C2D1 = c("POSITIVE" = "red3", "NEGATIVE" ="blue"),
ctDNA.postNAC = c("POSITIVE" = "red3", "NEGATIVE" ="blue"),
ctDNA.MRD = c("POSITIVE" = "red3", "NEGATIVE" ="blue"),
ctDNA.surveillance = c("POSITIVE" = "red3", "NEGATIVE" ="blue"),
DFS.Event = c("TRUE" = "red3", "FALSE" ="blue"),
OS.Event = c("TRUE" = "black", "FALSE" ="gray")
)
)
ht <- Heatmap(matrix(nrow = 0, ncol = length(circ_data$Stage)),show_row_names = FALSE,cluster_rows = F,cluster_columns = FALSE, top_annotation = ha)
pdf("heatmap.pdf",width = 7, height = 7)
draw(ht, annotation_legend_side = "bottom")
dev.off()#Overview Plot
setwd("~/Downloads")
clinstage<- read.csv("PLAGAST_OP.csv")
clinstage_df<- as.data.frame(clinstage)
#Display the swimmer plot with the label box
oplot<-swimmer_plot(df=clinstage_df,
id='PatientName',
end='fu.diff.months',
fill='gray',
width=.01,)
oplot <- oplot + theme(panel.border = element_blank())
oplot <- oplot + scale_y_continuous(breaks = seq(-12, 96, by = 6))
oplot <- oplot + labs(x ="Patients" , y="Months from Surgery")
oplot
##plot events
oplot_ev1 <- oplot + swimmer_points(df_points=clinstage_df,
id='PatientName',
time='date.diff.months',
name_shape ='Event_type',
name_col = 'Event',
size=3.5,fill='black',
#col='darkgreen'
)
oplot_ev1
#Shape customization to Event_type
oplot_ev1.1 <- oplot_ev1 + ggplot2::scale_shape_manual(name="Event_type",values=c(1,16,6,18,4),breaks=c('ctDNA_neg','ctDNA_pos','Imaging','Surgery','Death'))
oplot_ev1.1
#plot treatment
oplot_ev2 <- oplot_ev1.1 + swimmer_lines(df_lines=clinstage_df,
id='PatientName',
start='Tx_start.months',
end='Tx_end.months',
name_col='Tx_type',
size=3.5,
name_alpha = 1.0)
oplot_ev2 <- oplot_ev2 + guides(linetype = guide_legend(override.aes = list(size = 5, color = "black")))
oplot_ev2 
#colour customization
oplot_ev2.2 <- oplot_ev2 + ggplot2::scale_color_manual(name="Event",values=c( "purple","black","black", "lightblue", "green", "red", "blue","orange"))
oplot_ev2.2
#RFS by ctDNA at Baseline - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Base, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Base, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Base=NEGATIVE 17 5 NA 42.1 NA
ctDNA.Base=POSITIVE 39 20 22.3 13.3 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Base, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA Baseline | All pts", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.Base, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Base=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 11.000 4.000 0.756 0.106 0.473 0.901
ctDNA.Base=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 13.0000 19.0000 0.4772 0.0849 0.3057 0.6301 circ_data$ctDNA.Base <- factor(circ_data$ctDNA.Base, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.Base, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Base, data = circ_data)
n= 56, number of events= 25
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.BasePOSITIVE 0.9196 2.5082 0.5030 1.828 0.0675 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.BasePOSITIVE 2.508 0.3987 0.9359 6.722
Concordance= 0.604 (se = 0.041 )
Likelihood ratio test= 3.92 on 1 df, p=0.05
Wald test = 3.34 on 1 df, p=0.07
Score (logrank) test = 3.58 on 1 df, p=0.06cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 2.51 (0.94-6.72); p = 0.068"#OS by ctDNA at Baseline - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.Base, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.Base, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Base=NEGATIVE 17 4 NA 52.7 NA
ctDNA.Base=POSITIVE 39 13 NA 24.5 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Base, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA Baseline | All pts", ylab= "Overall-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.Base, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Base=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 14.0000 1.0000 0.9412 0.0571 0.6502 0.9915
ctDNA.Base=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 17.0000 11.0000 0.6832 0.0809 0.4963 0.8129 circ_data$ctDNA.Base <- factor(circ_data$ctDNA.Base, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.Base, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Base, data = circ_data)
n= 56, number of events= 17
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.BasePOSITIVE 0.7361 2.0878 0.5781 1.273 0.203
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.BasePOSITIVE 2.088 0.479 0.6724 6.483
Concordance= 0.597 (se = 0.05 )
Likelihood ratio test= 1.81 on 1 df, p=0.2
Wald test = 1.62 on 1 df, p=0.2
Score (logrank) test = 1.69 on 1 df, p=0.2cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 2.09 (0.67-6.48); p = 0.203"#RFS by ctDNA levels at Baseline based on AUC optimal MTM/ml level - ctDNA Baseline positive
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_data <- circ_data[circ_data$ctDNA.Base=="POSITIVE",]
circ_datadf <- as.data.frame(circ_data)
#DFS.Event
circ_data <- circ_data[complete.cases(circ_data$DFS.Event, circ_data$ctDNA.Base.MTM),]
circ_data$ctDNA.Base.MTM <- as.numeric(circ_data$ctDNA.Base.MTM)
ROC <- roc(DFS.Event ~ ctDNA.Base.MTM, data = circ_data, ci = TRUE)Setting levels: control = FALSE, case = TRUE
Setting direction: controls < casesp<-ggroc(ROC,
aes = c("linetype"), color = "blue", size = 1,
legacy.axes = TRUE) +
geom_abline(color = "dark grey", size = 0.5) +
theme_classic()+
ylab("Sensitivity") + theme(axis.title.x = element_text(color="black", size=14), axis.title.y = element_text(color="black", size=14),axis.text.x = element_text(colour = "black", size=14),axis.text.y = element_text(colour = "black",size=14),legend.title = element_blank(),legend.text = element_text(size=14))Warning: Ignoring unknown parameters: `aes`Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
Please use `linewidth` instead.p
#AUC
AUC <- auc(ROC)
print(AUC)Area under the curve: 0.6211AUC_conf <- ci.auc(ROC)
print(AUC_conf)95% CI: 0.4354-0.8067 (DeLong)res.roc <- roc(circ_data$DFS.Event, circ_data$ctDNA.Base.MTM)Setting levels: control = FALSE, case = TRUE
Setting direction: controls < casesplot.roc(res.roc, print.auc = TRUE, print.thres = "best")
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_data <- circ_data[circ_data$ctDNA.Base=="POSITIVE",]
circ_datadf <- as.data.frame(circ_data)
# Create a new variable based on these quartiles
circ_data$ctDNA.6mMTM.Q <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.6mMTM.Q = case_when(
ctDNA.Base.MTM < 1.085 ~ 1,
ctDNA.Base.MTM >= 1.085 ~ 2
))
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.6mMTM.Q, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.6mMTM.Q, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.6mMTM.Q=1 16 5 NA 26.32 NA
ctDNA.6mMTM.Q=2 23 15 14.5 7.79 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.6mMTM.Q, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","red"), title="RFS - ctDNA MTM/mL groups at Baseline", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("MTM/mL<1.085", "MTM/mL≥1.085"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.6mMTM.Q, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.6mMTM.Q=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 8.000 4.000 0.731 0.117 0.427 0.891
ctDNA.6mMTM.Q=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 5.000 15.000 0.309 0.103 0.129 0.510 circ_data$ctDNA.6mMTM.Q <- factor(circ_data$ctDNA.6mMTM.Q, levels=c("1","2"), labels = c("MTM/mL<1.085", "MTM/mL≥1.085"))
cox_fit <- coxph(surv_object ~ ctDNA.6mMTM.Q, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.6mMTM.Q, data = circ_data)
n= 39, number of events= 20
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.6mMTM.QMTM/mL≥1.085 1.0492 2.8553 0.5217 2.011 0.0443 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.6mMTM.QMTM/mL≥1.085 2.855 0.3502 1.027 7.939
Concordance= 0.617 (se = 0.056 )
Likelihood ratio test= 4.64 on 1 df, p=0.03
Wald test = 4.04 on 1 df, p=0.04
Score (logrank) test = 4.4 on 1 df, p=0.04cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 2.86 (1.03-7.94); p = 0.044"#OS by ctDNA levels at Baseline based on AUC optimal MTM/mL level from RFS model - ctDNA Baseline positive
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_data <- circ_data[circ_data$ctDNA.Base=="POSITIVE",]
circ_datadf <- as.data.frame(circ_data)
# Create a new variable based on these quartiles
circ_data$ctDNA.6mMTM.Q <- NA
circ_data <- circ_data %>%
mutate(ctDNA.6mMTM.Q = case_when(
ctDNA.Base.MTM < 1.085 ~ 1,
ctDNA.Base.MTM >= 1.085 ~ 2
))
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.6mMTM.Q, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.6mMTM.Q, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.6mMTM.Q=1 16 3 NA NA NA
ctDNA.6mMTM.Q=2 23 10 38 18.9 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.6mMTM.Q, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","red"), title="OS - ctDNA MTM/mL groups at Baseline", ylab= "Overall Survival", xlab="Months from surgery", legend.labs=c("MTM/mL<1.085", "MTM/mL≥1.085"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.6mMTM.Q, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.6mMTM.Q=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 9.000 3.000 0.804 0.102 0.506 0.932
ctDNA.6mMTM.Q=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 8.000 8.000 0.598 0.115 0.342 0.781 circ_data$ctDNA.6mMTM.Q <- factor(circ_data$ctDNA.6mMTM.Q, levels=c("1","2"), labels = c("MTM/mL<1.085", "MTM/mL≥1.085"))
cox_fit <- coxph(surv_object ~ ctDNA.6mMTM.Q, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.6mMTM.Q, data = circ_data)
n= 39, number of events= 13
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.6mMTM.QMTM/mL≥1.085 0.9680 2.6326 0.6668 1.452 0.147
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.6mMTM.QMTM/mL≥1.085 2.633 0.3798 0.7125 9.727
Concordance= 0.566 (se = 0.076 )
Likelihood ratio test= 2.43 on 1 df, p=0.1
Wald test = 2.11 on 1 df, p=0.1
Score (logrank) test = 2.26 on 1 df, p=0.1cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 2.63 (0.71-9.73); p = 0.147"#RFS by ctDNA at Baseline - excluding pts that did not receive NAC
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$NAC==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Base, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Base, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Base=NEGATIVE 16 5 NA 42.1 NA
ctDNA.Base=POSITIVE 35 17 26.3 14.5 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Base, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA Baseline | NAC treated only", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.Base, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Base=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 10.000 4.000 0.740 0.112 0.446 0.894
ctDNA.Base=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 12.0000 16.0000 0.5096 0.0893 0.3256 0.6670 circ_data$ctDNA.Base <- factor(circ_data$ctDNA.Base, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.Base, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Base, data = circ_data)
n= 51, number of events= 22
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.BasePOSITIVE 0.8020 2.2300 0.5121 1.566 0.117
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.BasePOSITIVE 2.23 0.4484 0.8173 6.085
Concordance= 0.599 (se = 0.044 )
Likelihood ratio test= 2.78 on 1 df, p=0.1
Wald test = 2.45 on 1 df, p=0.1
Score (logrank) test = 2.58 on 1 df, p=0.1cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 2.23 (0.82-6.08); p = 0.117"#OS by ctDNA at Baseline - excluding pts that did not receive NAC
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$NAC==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.Base, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.Base, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Base=NEGATIVE 16 4 NA 52.7 NA
ctDNA.Base=POSITIVE 35 11 NA 24.5 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Base, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA Baseline | NAC treated only", ylab= "Overall-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.Base, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Base=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 13.0000 1.0000 0.9375 0.0605 0.6323 0.9910
ctDNA.Base=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 15.0000 9.0000 0.7040 0.0854 0.5012 0.8367 circ_data$ctDNA.Base <- factor(circ_data$ctDNA.Base, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.Base, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Base, data = circ_data)
n= 51, number of events= 15
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.BasePOSITIVE 0.6136 1.8470 0.5897 1.041 0.298
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.BasePOSITIVE 1.847 0.5414 0.5815 5.867
Concordance= 0.59 (se = 0.055 )
Likelihood ratio test= 1.17 on 1 df, p=0.3
Wald test = 1.08 on 1 df, p=0.3
Score (logrank) test = 1.12 on 1 df, p=0.3cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 1.85 (0.58-5.87); p = 0.298"#RFS by ctDNA levels at Baseline based on AUC optimal MTM/ml level - ctDNA Baseline positive excluding pts that did not receive NAC
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$NAC==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_data <- circ_data[circ_data$ctDNA.Base=="POSITIVE",]
circ_datadf <- as.data.frame(circ_data)
#DFS.Event
circ_data <- circ_data[complete.cases(circ_data$DFS.Event, circ_data$ctDNA.Base.MTM),]
circ_data$ctDNA.Base.MTM <- as.numeric(circ_data$ctDNA.Base.MTM)
ROC <- roc(DFS.Event ~ ctDNA.Base.MTM, data = circ_data, ci = TRUE)Setting levels: control = FALSE, case = TRUE
Setting direction: controls < casesp<-ggroc(ROC,
aes = c("linetype"), color = "blue", size = 1,
legacy.axes = TRUE) +
geom_abline(color = "dark grey", size = 0.5) +
theme_classic()+
ylab("Sensitivity") + theme(axis.title.x = element_text(color="black", size=14), axis.title.y = element_text(color="black", size=14),axis.text.x = element_text(colour = "black", size=14),axis.text.y = element_text(colour = "black",size=14),legend.title = element_blank(),legend.text = element_text(size=14))Warning: Ignoring unknown parameters: `aes`p
#AUC
AUC <- auc(ROC)
print(AUC)Area under the curve: 0.6373AUC_conf <- ci.auc(ROC)
print(AUC_conf)95% CI: 0.4424-0.8321 (DeLong)res.roc <- roc(circ_data$DFS.Event, circ_data$ctDNA.Base.MTM)Setting levels: control = FALSE, case = TRUE
Setting direction: controls < casesplot.roc(res.roc, print.auc = TRUE, print.thres = "best")
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$NAC==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_data <- circ_data[circ_data$ctDNA.Base=="POSITIVE",]
circ_datadf <- as.data.frame(circ_data)
# Create a new variable based on these quartiles
circ_data$ctDNA.6mMTM.Q <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.6mMTM.Q = case_when(
ctDNA.Base.MTM < 0.71 ~ 1,
ctDNA.Base.MTM >= 0.71 ~ 2
))
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.6mMTM.Q, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.6mMTM.Q, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.6mMTM.Q=1 11 2 NA NA NA
ctDNA.6mMTM.Q=2 24 15 14.5 7.79 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.6mMTM.Q, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","red"), title="RFS - ctDNA MTM/mL groups at Baseline", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("MTM/mL<0.71", "MTM/mL≥0.71"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.6mMTM.Q, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.6mMTM.Q=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 6.0000 1.0000 0.9091 0.0867 0.5081 0.9867
ctDNA.6mMTM.Q=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 6.000 15.000 0.340 0.102 0.156 0.535 circ_data$ctDNA.6mMTM.Q <- factor(circ_data$ctDNA.6mMTM.Q, levels=c("1","2"), labels = c("MTM/mL<0.71", "MTM/mL≥0.71"))
cox_fit <- coxph(surv_object ~ ctDNA.6mMTM.Q, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.6mMTM.Q, data = circ_data)
n= 35, number of events= 17
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.6mMTM.QMTM/mL≥0.71 1.5274 4.6061 0.7556 2.021 0.0432 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.6mMTM.QMTM/mL≥0.71 4.606 0.2171 1.048 20.25
Concordance= 0.632 (se = 0.056 )
Likelihood ratio test= 5.83 on 1 df, p=0.02
Wald test = 4.09 on 1 df, p=0.04
Score (logrank) test = 4.92 on 1 df, p=0.03cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 4.61 (1.05-20.25); p = 0.043"#RFS by ctDNA on-NAT - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.C2D1!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.C2D1, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.C2D1, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.C2D1=NEGATIVE 20 4 NA NA NA
ctDNA.C2D1=POSITIVE 21 14 13.3 6.57 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.C2D1, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA status on-NAT | All pts", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.C2D1, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.C2D1=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 14.0000 3.0000 0.8400 0.0853 0.5792 0.9459
ctDNA.C2D1=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 4.000 13.000 0.342 0.109 0.146 0.550 circ_data$ctDNA.C2D1 <- factor(circ_data$ctDNA.C2D1, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.C2D1, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.C2D1, data = circ_data)
n= 41, number of events= 18
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.C2D1POSITIVE 1.8205 6.1750 0.5767 3.157 0.0016 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.C2D1POSITIVE 6.175 0.1619 1.994 19.12
Concordance= 0.718 (se = 0.046 )
Likelihood ratio test= 12.42 on 1 df, p=4e-04
Wald test = 9.97 on 1 df, p=0.002
Score (logrank) test = 12.64 on 1 df, p=4e-04cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 6.17 (1.99-19.12); p = 0.002"#OS by ctDNA on-NAT - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.C2D1!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.C2D1, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.C2D1, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.C2D1=NEGATIVE 20 3 NA NA NA
ctDNA.C2D1=POSITIVE 21 9 24.5 14.4 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.C2D1, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA status on-NAT | All pts", ylab= "Overall-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.C2D1, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.C2D1=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 15.0000 1.0000 0.9500 0.0487 0.6947 0.9928
ctDNA.C2D1=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.000 6.000 8.000 0.586 0.114 0.335 0.771 circ_data$ctDNA.C2D1 <- factor(circ_data$ctDNA.C2D1, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.C2D1, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.C2D1, data = circ_data)
n= 41, number of events= 12
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.C2D1POSITIVE 1.5506 4.7145 0.6795 2.282 0.0225 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.C2D1POSITIVE 4.714 0.2121 1.245 17.86
Concordance= 0.706 (se = 0.054 )
Likelihood ratio test= 6.18 on 1 df, p=0.01
Wald test = 5.21 on 1 df, p=0.02
Score (logrank) test = 6.2 on 1 df, p=0.01cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 4.71 (1.24-17.86); p = 0.022"#RFS by ctDNA post-NAT - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.postNAC!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.postNAC, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.postNAC, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.postNAC=NEGATIVE 30 10 NA 21.52 NA
ctDNA.postNAC=POSITIVE 11 8 7.79 3.55 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.postNAC, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA status post-NAT | All pts", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.postNAC, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.postNAC=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 13.0000 10.0000 0.6377 0.0933 0.4269 0.7883
ctDNA.postNAC=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.00000 1.00000 8.00000 0.13636 0.12392 0.00767 0.44263 circ_data$ctDNA.postNAC <- factor(circ_data$ctDNA.postNAC, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.postNAC, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.postNAC, data = circ_data)
n= 41, number of events= 18
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.postNACPOSITIVE 1.6603 5.2610 0.5036 3.297 0.000978 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.postNACPOSITIVE 5.261 0.1901 1.961 14.12
Concordance= 0.669 (se = 0.052 )
Likelihood ratio test= 9.69 on 1 df, p=0.002
Wald test = 10.87 on 1 df, p=0.001
Score (logrank) test = 13.08 on 1 df, p=3e-04cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 5.26 (1.96-14.12); p = 0.001"#OS by ctDNA post-NAT - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.postNAC!="",]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.postNAC, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.postNAC, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.postNAC=NEGATIVE 30 5 NA NA NA
ctDNA.postNAC=POSITIVE 11 8 18.9 11.7 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.postNAC, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA status post-NAT | All pts", ylab= "Overall-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(24))Call: survfit(formula = surv_object ~ ctDNA.postNAC, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.postNAC=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 16.0000 3.0000 0.9000 0.0548 0.7212 0.9666
ctDNA.postNAC=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
24.0000 2.0000 7.0000 0.2273 0.1409 0.0346 0.5207 circ_data$ctDNA.postNAC <- factor(circ_data$ctDNA.postNAC, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.postNAC, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.postNAC, data = circ_data)
n= 41, number of events= 13
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.postNACPOSITIVE 1.9944 7.3479 0.5811 3.432 0.000599 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.postNACPOSITIVE 7.348 0.1361 2.352 22.95
Concordance= 0.711 (se = 0.07 )
Likelihood ratio test= 11.82 on 1 df, p=6e-04
Wald test = 11.78 on 1 df, p=6e-04
Score (logrank) test = 15.82 on 1 df, p=7e-05cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 7.35 (2.35-22.95); p = 0.001"#Multivariate cox regression for RFS - ctDNA post-NAT
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.postNAC!="",]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.postNAC <- factor(circ_data$ctDNA.postNAC, levels=c("NEGATIVE","POSITIVE"), labels = c("Negative", "Positive"))
circ_data$PrimSite <- factor(circ_data$PrimSite, levels=c("Stomach","G/J"))
circ_data$Gender <- factor(circ_data$Gender, levels=c("Male","Female"))
circ_data$Age.Group <- factor(circ_data$Age.Group, levels=c("2","1"), labels = c(">70", "≤70"))
circ_data$pT.Stage <- factor(circ_data$pT.Stage, levels=c("T1-T3","T4"))
circ_data$ypNStatus <- factor(circ_data$ypNStatus, levels=c("N0","N1-N3"))
circ_data$TRG <- factor(circ_data$TRG, levels=c("TRG1/2/3","TRG4/5"))
circ_data$ACT <- factor(circ_data$ACT, levels=c("TRUE","FALSE"), labels = c("Yes", "No"))
surv_object <- Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
cox_fit <- coxph(surv_object ~ ctDNA.postNAC + PrimSite + Gender + Age.Group + ACT, data=circ_data)
ggforest(cox_fit, data = circ_data, main = "Multivariate Regression Model for RFS", refLabel = "Reference Group")
test.ph <- cox.zph(cox_fit)#Multivariate cox regression for OS - ctDNA post-NAT
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.postNAC!="",]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.postNAC <- factor(circ_data$ctDNA.postNAC, levels=c("NEGATIVE","POSITIVE"), labels = c("Negative", "Positive"))
circ_data$PrimSite <- factor(circ_data$PrimSite, levels=c("Stomach","G/J"))
circ_data$Gender <- factor(circ_data$Gender, levels=c("Male","Female"))
circ_data$Age.Group <- factor(circ_data$Age.Group, levels=c("2","1"), labels = c(">70", "≤70"))
circ_data$pT.Stage <- factor(circ_data$pT.Stage, levels=c("T1-T3","T4"))
circ_data$ypNStatus <- factor(circ_data$ypNStatus, levels=c("N0","N1-N3"))
circ_data$TRG <- factor(circ_data$TRG, levels=c("TRG1/2/3","TRG4/5"))
circ_data$ACT <- factor(circ_data$ACT, levels=c("TRUE","FALSE"), labels = c("Yes", "No"))
surv_object <- Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
cox_fit <- coxph(surv_object ~ ctDNA.postNAC + PrimSite + Gender + Age.Group + ACT, data=circ_data)
ggforest(cox_fit, data = circ_data, main = "Multivariate Regression Model for OS", refLabel = "Reference Group")
test.ph <- cox.zph(cox_fit)#Association of ctDNA Dynamics post-NAT and Response
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.Dynamics <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Dynamics = case_when(
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "NEGATIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/-/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/+/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "POSITIVE" ~ "ctDNA +/+/+"
))
#Vertical Fisher plot for ctDNA clearance post-NAT and Rec Status
circ_data <- circ_data[circ_data$ctDNA.Dynamics!="",]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Dynamics, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Dynamics, data = circ_data)
40 observations deleted due to missingness
n events median 0.95LCL 0.95UCL
ctDNA.Dynamics=ctDNA +/-/- 5 1 NA 18.20 NA
ctDNA.Dynamics=ctDNA +/+/- 10 5 14.55 7.36 NA
ctDNA.Dynamics=ctDNA +/+/+ 7 6 6.21 2.04 NAcirc_data$ctDNA.Dynamics <- factor(circ_data$ctDNA.Dynamics, levels=c("ctDNA +/-/-", "ctDNA +/+/-", "ctDNA +/+/+"))
circ_data$TRG <- factor(circ_data$TRG, levels = c("TRG1/2/3", "TRG4/5"))
contingency_table <- table(circ_data$ctDNA.Dynamics, circ_data$TRG)
fisher_exact_test <- fisher.test(contingency_table)
chi_square_test <- chisq.test(contingency_table)Warning: Chi-squared approximation may be incorrectprint(chi_square_test)
Pearson's Chi-squared test
data: contingency_table
X-squared = 11.378, df = 2, p-value = 0.003383print(fisher_exact_test)
Fisher's Exact Test for Count Data
data: contingency_table
p-value = 0.002557
alternative hypothesis: two.sidedprint(contingency_table)
TRG1/2/3 TRG4/5
ctDNA +/-/- 4 0
ctDNA +/+/- 6 4
ctDNA +/+/+ 0 7table_df <- as.data.frame(contingency_table)
table_df$Total <- ave(table_df$Freq, table_df$Var1, FUN = sum)
table_df$Percentage <- table_df$Freq / table_df$Total
table_df$MiddlePercentage <- table_df$Percentage / 2
# Swapping x and y in ggplot function to make bar plot vertical
ggplot(table_df, aes(y = Var1, x = Percentage, fill = Var2)) +
geom_bar(stat = "identity") +
geom_text(aes(x = MiddlePercentage, label = Freq), position = "stack", color = "black", vjust = 1.5, size = 7) +
theme_minimal() +
labs(title = "ctDNA Dymamics post-NAT", y = "ctDNA", x = "Patients (%)", fill = "Path Response") +
scale_x_continuous(labels = scales::percent_format()) +
scale_fill_manual(values = c("TRG1/2/3" = "lightblue3", "TRG4/5" = "red")) + # define custom colors
theme(axis.text.y = element_text(angle = 0, hjust = 1.5, size = 14), # increase y-axis text size
axis.text.x = element_text(size = 14, color = "black"), # increase x-axis text size
axis.title.y = element_text(size = 14, color = "black"), # increase y-axis label size
axis.title.x = element_text(size = 14, color = "black"), # increase x-axis label size
legend.text = element_text(size = 12, color = "black")) # increase Recurrence label size
#Calculating p-value with Fisher exact test for the ctDNA +/+/+ vs ctDNA +/+/-
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.Dynamics <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Dynamics = case_when(
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "NEGATIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/-/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/+/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "POSITIVE" ~ "ctDNA +/+/+"
))
#Vertical Fisher plot for ctDNA clearance post-NAT and Rec Status
circ_data <- circ_data[circ_data$ctDNA.Dynamics!="",]
circ_data <- circ_data[circ_data$ctDNA.Dynamics!="ctDNA +/-/-",]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Dynamics, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Dynamics, data = circ_data)
40 observations deleted due to missingness
n events median 0.95LCL 0.95UCL
ctDNA.Dynamics=ctDNA +/+/- 10 5 14.55 7.36 NA
ctDNA.Dynamics=ctDNA +/+/+ 7 6 6.21 2.04 NAcirc_data$ctDNA.Dynamics <- factor(circ_data$ctDNA.Dynamics, levels=c("ctDNA +/+/-", "ctDNA +/+/+"))
circ_data$TRG <- factor(circ_data$TRG, levels = c("TRG1/2/3", "TRG4/5"))
contingency_table <- table(circ_data$ctDNA.Dynamics, circ_data$TRG)
fisher_exact_test <- fisher.test(contingency_table)
chi_square_test <- chisq.test(contingency_table)Warning: Chi-squared approximation may be incorrectprint(chi_square_test)
Pearson's Chi-squared test with Yates' continuity correction
data: contingency_table
X-squared = 4.1295, df = 1, p-value = 0.04214print(fisher_exact_test)
Fisher's Exact Test for Count Data
data: contingency_table
p-value = 0.0345
alternative hypothesis: true odds ratio is not equal to 1
95 percent confidence interval:
1.176016 Inf
sample estimates:
odds ratio
Inf print(contingency_table)
TRG1/2/3 TRG4/5
ctDNA +/+/- 6 4
ctDNA +/+/+ 0 7#RFS by ctDNA Dynamics post-NAT
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.Dynamics <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Dynamics = case_when(
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "NEGATIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/-/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/+/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "POSITIVE" ~ "ctDNA +/+/+"
))
circ_data <- circ_data[!is.na(circ_data$ctDNA.Dynamics),]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Dynamics, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Dynamics, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Dynamics=ctDNA +/-/- 5 1 NA 18.20 NA
ctDNA.Dynamics=ctDNA +/+/- 10 5 14.55 7.36 NA
ctDNA.Dynamics=ctDNA +/+/+ 7 6 6.21 2.04 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Dynamics, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","red"), title="RFS - ctDNA Dynamics post-NAT", ylab= "Recurrence-Free Survival", xlab="Months from surgery", legend.labs=c("ctDNA +/-/-","ctDNA +/+/-", "ctDNA +/+/+"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Dynamics, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Dynamics=ctDNA +/-/-
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1.000 0.000 1.0000 1.000
24 2 1 0.667 0.272 0.0541 0.945
ctDNA.Dynamics=ctDNA +/+/-
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 10 0 1.00 0.000 1.000 1.000
24 2 5 0.48 0.164 0.161 0.745
ctDNA.Dynamics=ctDNA +/+/+
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 7 0 1 0 1 1 circ_data$ctDNA.Dynamics <- factor(circ_data$ctDNA.Dynamics, levels=c("ctDNA +/-/-","ctDNA +/+/-", "ctDNA +/+/+"))
cox_fit <- coxph(surv_object ~ ctDNA.Dynamics, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Dynamics, data = circ_data)
n= 22, number of events= 12
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.DynamicsctDNA +/+/- 1.343 3.831 1.100 1.221 0.2219
ctDNA.DynamicsctDNA +/+/+ 2.921 18.568 1.157 2.526 0.0116 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.DynamicsctDNA +/+/- 3.831 0.26100 0.4439 33.07
ctDNA.DynamicsctDNA +/+/+ 18.568 0.05386 1.9237 179.22
Concordance= 0.756 (se = 0.053 )
Likelihood ratio test= 10.01 on 2 df, p=0.007
Wald test = 8.49 on 2 df, p=0.01
Score (logrank) test = 11.47 on 2 df, p=0.003#OS by ctDNA Dynamics post-NAT
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$ctDNA.Dynamics <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Dynamics = case_when(
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "NEGATIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/-/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/+/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "POSITIVE" ~ "ctDNA +/+/+"
))
circ_data <- circ_data[!is.na(circ_data$ctDNA.Dynamics),]
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.Dynamics, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.Dynamics, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Dynamics=ctDNA +/-/- 5 0 NA NA NA
ctDNA.Dynamics=ctDNA +/+/- 10 2 NA NA NA
ctDNA.Dynamics=ctDNA +/+/+ 7 6 14.4 8.54 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Dynamics, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","red"), title="OS - ctDNA Dynamics post-NAT", ylab= "Overall Survival", xlab="Months from surgery", legend.labs=c("ctDNA +/-/-","ctDNA +/+/-", "ctDNA +/+/+"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Dynamics, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Dynamics=ctDNA +/-/-
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1
24 2 0 1 0 NA NA
ctDNA.Dynamics=ctDNA +/+/-
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 10 0 1.0 0.000 1.000 1.000
24 2 2 0.8 0.126 0.409 0.946
ctDNA.Dynamics=ctDNA +/+/+
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 7 0 1.000 0.000 1.00000 1.000
24 1 5 0.171 0.156 0.00794 0.526circ_data$ctDNA.Dynamics <- factor(circ_data$ctDNA.Dynamics, levels=c("ctDNA +/-/-","ctDNA +/+/-", "ctDNA +/+/+"))
cox_fit <- coxphf(surv_object ~ ctDNA.Dynamics, data=circ_data)
summary(cox_fit)coxphf(formula = surv_object ~ ctDNA.Dynamics, data = circ_data)
Model fitted by Penalized ML
Confidence intervals and p-values by Profile Likelihood
coef se(coef) exp(coef) lower 0.95 upper 0.95 Chisq p
ctDNA.DynamicsctDNA +/+/- 1.178268 1.696304 3.248742 0.2627946 448.914 0.7281482 0.393484095
ctDNA.DynamicsctDNA +/+/+ 2.776185 1.609915 16.057642 1.8668569 2102.174 7.2774206 0.006982673
Likelihood ratio test=8.847995 on 2 df, p=0.01198622, n=22
Wald test = 5.979249 on 2 df, p = 0.05030632
Covariance-Matrix:
ctDNA.DynamicsctDNA +/+/- ctDNA.DynamicsctDNA +/+/+
ctDNA.DynamicsctDNA +/+/- 2.877449 2.403504
ctDNA.DynamicsctDNA +/+/+ 2.403504 2.591825#Levels of Baseline MTM/mL in ctDNA Dynamics post-NAT categories
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.Base!="",]
circ_data <- as.data.frame(circ_data)
circ_data$ctDNA.Dynamics <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Dynamics = case_when(
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "NEGATIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/-/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "NEGATIVE" ~ "ctDNA +/+/-",
ctDNA.Base == "POSITIVE" & ctDNA.C2D1 == "POSITIVE" & ctDNA.postNAC == "POSITIVE" ~ "ctDNA +/+/+"
))
# Transform ctDNA.Base.MTM with log10
circ_data <- subset(circ_data, !is.na(ctDNA.Dynamics))
circ_data$ctDNA.Base.MTM <- as.numeric(as.character(circ_data$ctDNA.Base.MTM))
circ_data$ctDNA.Dynamics <- factor(circ_data$ctDNA.Dynamics, levels=c("ctDNA +/-/-","ctDNA +/+/-", "ctDNA +/+/+"))
median_Base_MTM <- aggregate(ctDNA.Base.MTM ~ ctDNA.Dynamics, data = circ_data, FUN = median)
print(median_Base_MTM)
# Create violin plot with log10 scale on y-axis
ggplot(circ_data, aes(x=ctDNA.Dynamics, y=ctDNA.Base.MTM, fill=ctDNA.Dynamics)) +
geom_violin(trim=FALSE) +
scale_fill_manual(values=c("ctDNA +/-/-"="lightblue", "ctDNA +/+/-"="lightgreen", "ctDNA +/+/+"="salmon")) +
geom_boxplot(width=0.1, fill="white", colour="black", alpha=0.5) +
scale_y_log10(breaks=c(0.001, 0.01, 0.1, 1, 10, 100, 1000, 10000)) +
labs(title="Baseline MTM/mL | Dynamics post-NAT", x="Dynamics post-NAT", y="Baseline MTM/mL") +
theme_minimal() +
theme(legend.position="none")
m3_1v2 <- wilcox.test(ctDNA.Base.MTM ~ ctDNA.Dynamics,
data = circ_data[circ_data$ctDNA.Dynamics %in% c("ctDNA +/-/-", "ctDNA +/+/-"), ],
na.rm = TRUE)Warning: cannot compute exact p-value with tiesprint(m3_1v2)
Wilcoxon rank sum test with continuity correction
data: ctDNA.Base.MTM by ctDNA.Dynamics
W = 26, p-value = 0.9511
alternative hypothesis: true location shift is not equal to 0m3_1v3 <- wilcox.test(ctDNA.Base.MTM ~ ctDNA.Dynamics,
data = circ_data[circ_data$ctDNA.Dynamics %in% c("ctDNA +/-/-", "ctDNA +/+/+"), ],
na.rm = TRUE)
print(m3_1v3)
Wilcoxon rank sum exact test
data: ctDNA.Base.MTM by ctDNA.Dynamics
W = 7, p-value = 0.1061
alternative hypothesis: true location shift is not equal to 0m3_2v3 <- wilcox.test(ctDNA.Base.MTM ~ ctDNA.Dynamics,
data = circ_data[circ_data$ctDNA.Dynamics %in% c("ctDNA +/+/-", "ctDNA +/+/+"), ],
na.rm = TRUE)Warning: cannot compute exact p-value with tiesprint(m3_2v3)
Wilcoxon rank sum test with continuity correction
data: ctDNA.Base.MTM by ctDNA.Dynamics
W = 2, p-value = 0.001506
alternative hypothesis: true location shift is not equal to 0#Time of ctDNA draws at the MRD window from surgery
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included == TRUE, ]
circ_data$ctDNA.MRD.Date <- as.Date(circ_data$ctDNA.MRD.Date, format="%m/%d/%Y")
circ_data$Surgery.Date <- as.Date(circ_data$Surgery.Date, format="%m/%d/%Y")
circ_data$Time_to_ctDNA_MRD <- as.numeric(difftime(circ_data$ctDNA.MRD.Date, circ_data$Surgery.Date, units="days"))
median_ctDNA_MRD <- median(circ_data$Time_to_ctDNA_MRD, na.rm=TRUE)
range_ctDNA_MRD <- range(circ_data$Time_to_ctDNA_MRD, na.rm=TRUE)
Q1_ctDNA_MRD <- quantile(circ_data$Time_to_ctDNA_MRD, 0.25, na.rm=TRUE)
Q3_ctDNA_MRD <- quantile(circ_data$Time_to_ctDNA_MRD, 0.75, na.rm=TRUE)
IQR_ctDNA_MRD <- IQR(circ_data$Time_to_ctDNA_MRD, na.rm=TRUE)
cat("Median time from surgery to ctDNA MRD time point:", median_ctDNA_MRD, "days\n")Median time from surgery to ctDNA MRD time point: 40.5 dayscat("Range:", range_ctDNA_MRD[1], "-", range_ctDNA_MRD[2], "days\n")Range: 15 - 82 dayscat("Q1 (25th percentile):", Q1_ctDNA_MRD, "days\n")Q1 (25th percentile): 30.25 dayscat("Q3 (75th percentile):", Q3_ctDNA_MRD, "days\n")Q3 (75th percentile): 47 dayscat("Interquartile Range (IQR):", IQR_ctDNA_MRD, "days\n")Interquartile Range (IQR): 16.75 days#RFS by ctDNA at the MRD Window - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.MRD, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.MRD, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.MRD=NEGATIVE 40 14 NA 23.32 NA
ctDNA.MRD=POSITIVE 7 7 3.57 3.21 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.MRD, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA MRD window | All pts", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.MRD, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.MRD=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 40 0 1.000 0.0000 1.000 1.000
24 18 13 0.628 0.0836 0.442 0.766
ctDNA.MRD=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 7 0 1 0 1 1 circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.MRD, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.MRD, data = circ_data)
n= 47, number of events= 21
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.MRDPOSITIVE 2.5604 12.9415 0.5704 4.489 7.17e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.MRDPOSITIVE 12.94 0.07727 4.231 39.59
Concordance= 0.666 (se = 0.047 )
Likelihood ratio test= 17.26 on 1 df, p=3e-05
Wald test = 20.15 on 1 df, p=7e-06
Score (logrank) test = 31.36 on 1 df, p=2e-08cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 12.94 (4.23-39.59); p = 0"#OS by ctDNA at the MRD Window - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.MRD, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.MRD, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.MRD=NEGATIVE 40 6 NA NA NA
ctDNA.MRD=POSITIVE 10 8 8.59 5.31 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.MRD, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA MRD window | All pts", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.MRD, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.MRD=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 40 0 1.000 0.0000 1.000 1.000
24 23 5 0.849 0.0632 0.671 0.935
ctDNA.MRD=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 10 0 1 0 1 1 circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.MRD, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.MRD, data = circ_data)
n= 50, number of events= 14
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.MRDPOSITIVE 2.6769 14.5406 0.5942 4.505 6.64e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.MRDPOSITIVE 14.54 0.06877 4.537 46.6
Concordance= 0.771 (se = 0.055 )
Likelihood ratio test= 19.56 on 1 df, p=1e-05
Wald test = 20.29 on 1 df, p=7e-06
Score (logrank) test = 33.05 on 1 df, p=9e-09cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 14.54 (4.54-46.6); p = 0"#RFS by ctDNA at the MRD Window - ACT pts only
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ACT==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.MRD, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.MRD, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.MRD=NEGATIVE 39 14 NA 23.32 NA
ctDNA.MRD=POSITIVE 6 6 3.54 3.21 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.MRD, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA MRD window | ACT treated", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.MRD, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.MRD=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 39 0 1.000 0.000 1.000 1.000
24 18 13 0.623 0.084 0.437 0.763
ctDNA.MRD=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 6 0 1 0 1 1 circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.MRD, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.MRD, data = circ_data)
n= 45, number of events= 20
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.MRDPOSITIVE 2.4748 11.8797 0.5874 4.213 2.52e-05 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.MRDPOSITIVE 11.88 0.08418 3.757 37.57
Concordance= 0.651 (se = 0.048 )
Likelihood ratio test= 14.56 on 1 df, p=1e-04
Wald test = 17.75 on 1 df, p=3e-05
Score (logrank) test = 27.27 on 1 df, p=2e-07cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 11.88 (3.76-37.57); p = 0"#OS by ctDNA at the MRD Window - ACT pts only
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ACT==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.MRD, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.MRD, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.MRD=NEGATIVE 39 6 NA NA NA
ctDNA.MRD=POSITIVE 7 5 10.3 5.54 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.MRD, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA MRD window | ACT treated", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.MRD, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.MRD=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 39 0 1.000 0.0000 1.000 1.000
24 23 5 0.847 0.0636 0.669 0.934
ctDNA.MRD=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 7 0 1 0 1 1 circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.MRD, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.MRD, data = circ_data)
n= 46, number of events= 11
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.MRDPOSITIVE 2.3872 10.8835 0.6522 3.66 0.000252 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.MRDPOSITIVE 10.88 0.09188 3.031 39.08
Concordance= 0.717 (se = 0.071 )
Likelihood ratio test= 11.36 on 1 df, p=8e-04
Wald test = 13.4 on 1 df, p=3e-04
Score (logrank) test = 20.32 on 1 df, p=7e-06cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 10.88 (3.03-39.08); p = 0"#RFS by ctDNA at the MRD Window - NAC pts only
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$NAC==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.MRD, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.MRD, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.MRD=NEGATIVE 35 12 NA 23.32 NA
ctDNA.MRD=POSITIVE 5 5 4.36 3.57 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.MRD, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="RFS - ctDNA MRD window | NAC treated", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.MRD, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.MRD=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 35 0 1.00 0.0000 1.000 1.000
24 15 11 0.64 0.0892 0.439 0.785
ctDNA.MRD=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1 circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.MRD, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.MRD, data = circ_data)
n= 40, number of events= 17
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.MRDPOSITIVE 2.2339 9.3362 0.6137 3.64 0.000272 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.MRDPOSITIVE 9.336 0.1071 2.804 31.08
Concordance= 0.639 (se = 0.051 )
Likelihood ratio test= 10.63 on 1 df, p=0.001
Wald test = 13.25 on 1 df, p=3e-04
Score (logrank) test = 18.98 on 1 df, p=1e-05cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 9.34 (2.8-31.08); p = 0"#OS by ctDNA at the MRD Window - NAC pts only
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$NAC==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.MRD, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.MRD, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.MRD=NEGATIVE 35 6 NA NA NA
ctDNA.MRD=POSITIVE 8 6 7.1 5.31 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.MRD, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=6, palette=c("blue","red"), title="OS - ctDNA MRD window | NAC treated", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.MRD, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.MRD=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 35 0 1.000 0.0000 1.000 1.000
24 18 5 0.821 0.0741 0.616 0.922
ctDNA.MRD=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 8 0 1 0 1 1 circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.MRD, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.MRD, data = circ_data)
n= 43, number of events= 12
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.MRDPOSITIVE 2.3851 10.8601 0.6224 3.832 0.000127 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.MRDPOSITIVE 10.86 0.09208 3.206 36.78
Concordance= 0.742 (se = 0.065 )
Likelihood ratio test= 13.1 on 1 df, p=3e-04
Wald test = 14.68 on 1 df, p=1e-04
Score (logrank) test = 22.15 on 1 df, p=3e-06cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 10.86 (3.21-36.78); p = 0"#RFS by ctDNA at the MRD Window & ypT
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.Stage.II.Risk <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Stage.II.TNM = case_when(
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T1-T3" ~ 1,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T1-T3" ~ 2,
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T4" ~ 3,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T4" ~ 4
))
circ_data <- circ_data[circ_data$ctDNA.Stage.II.TNM!="",]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Stage.II.TNM, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Stage.II.TNM, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Stage.II.TNM=1 31 8 NA NA NA
ctDNA.Stage.II.TNM=2 4 4 5.10 3.21 NA
ctDNA.Stage.II.TNM=3 9 6 19.34 11.55 NA
ctDNA.Stage.II.TNM=4 3 3 3.51 1.70 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","purple", "red"), title="RFS - ctDNA MRD & ypTN", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA(-) & T1-T3", "ctDNA(+) & T1-T3", "ctDNA(-) & T4", "ctDNA(+) & T4"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Stage.II.TNM=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 31 0 1.000 0.000 1.000 1.000
24 15 8 0.698 0.091 0.481 0.838
ctDNA.Stage.II.TNM=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 4 0 1 0 1 1
ctDNA.Stage.II.TNM=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 9 0 1.0 0.000 1.0000 1.000
24 3 5 0.4 0.174 0.0981 0.697
ctDNA.Stage.II.TNM=4
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 3 0 1 0 1 1 circ_data$ctDNA.Stage.II.TNM <- factor(circ_data$ctDNA.Stage.II.TNM, levels=c("1","2","3","4"), labels = c("ctDNA(-) & T1-T3", "ctDNA(+) & T1-T3", "ctDNA(-) & T4", "ctDNA(+) & T4"))
cox_fit <- coxph(surv_object ~ ctDNA.Stage.II.TNM, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data)
n= 47, number of events= 21
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.Stage.II.TNMctDNA(+) & T1-T3 2.6818 14.6110 0.6876 3.900 9.62e-05 ***
ctDNA.Stage.II.TNMctDNA(-) & T4 1.0893 2.9722 0.5407 2.015 0.0439 *
ctDNA.Stage.II.TNMctDNA(+) & T4 3.4934 32.8977 0.8353 4.182 2.89e-05 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.Stage.II.TNMctDNA(+) & T1-T3 14.611 0.06844 3.796 56.233
ctDNA.Stage.II.TNMctDNA(-) & T4 2.972 0.33645 1.030 8.576
ctDNA.Stage.II.TNMctDNA(+) & T4 32.898 0.03040 6.399 169.126
Concordance= 0.731 (se = 0.051 )
Likelihood ratio test= 21.92 on 3 df, p=7e-05
Wald test = 22.7 on 3 df, p=5e-05
Score (logrank) test = 37.96 on 3 df, p=3e-08#Repeat analysis to compare ctDNA MRD (-) vs (+) in T4
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.Stage.II.Risk <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Stage.II.TNM = case_when(
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T1-T3" ~ 1,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T1-T3" ~ 2,
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T4" ~ 3,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T4" ~ 4
))
circ_data <- circ_data[circ_data$ctDNA.Stage.II.TNM!="",]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Stage.II.TNM, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Stage.II.TNM, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Stage.II.TNM=1 31 8 NA NA NA
ctDNA.Stage.II.TNM=2 4 4 5.10 3.21 NA
ctDNA.Stage.II.TNM=3 9 6 19.34 11.55 NA
ctDNA.Stage.II.TNM=4 3 3 3.51 1.70 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","purple", "red"), title="RFS - ctDNA MRD & ypTN", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA(-) & T1-T3", "ctDNA(+) & T1-T3", "ctDNA(-) & T4", "ctDNA(+) & T4"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Stage.II.TNM=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 31 0 1.000 0.000 1.000 1.000
24 15 8 0.698 0.091 0.481 0.838
ctDNA.Stage.II.TNM=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 4 0 1 0 1 1
ctDNA.Stage.II.TNM=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 9 0 1.0 0.000 1.0000 1.000
24 3 5 0.4 0.174 0.0981 0.697
ctDNA.Stage.II.TNM=4
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 3 0 1 0 1 1 circ_data$ctDNA.Stage.II.TNM <- factor(circ_data$ctDNA.Stage.II.TNM, levels=c("2","4","1","3"))
cox_fit <- coxph(surv_object ~ ctDNA.Stage.II.TNM, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data)
n= 47, number of events= 21
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.Stage.II.TNM4 0.81163 2.25158 0.80842 1.004 0.3154
ctDNA.Stage.II.TNM1 -2.68177 0.06844 0.68763 -3.900 9.62e-05 ***
ctDNA.Stage.II.TNM3 -1.59246 0.20342 0.71596 -2.224 0.0261 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.Stage.II.TNM4 2.25158 0.4441 0.46170 10.9804
ctDNA.Stage.II.TNM1 0.06844 14.6110 0.01778 0.2634
ctDNA.Stage.II.TNM3 0.20342 4.9158 0.05000 0.8276
Concordance= 0.731 (se = 0.051 )
Likelihood ratio test= 21.92 on 3 df, p=7e-05
Wald test = 22.7 on 3 df, p=5e-05
Score (logrank) test = 37.96 on 3 df, p=3e-08#OS by ctDNA at the MRD Window & ypT
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.Stage.II.Risk <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Stage.II.TNM = case_when(
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T1-T3" ~ 1,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T1-T3" ~ 2,
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T4" ~ 3,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T4" ~ 4
))
circ_data <- circ_data[circ_data$ctDNA.Stage.II.TNM!="",]
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.Stage.II.TNM, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.Stage.II.TNM, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Stage.II.TNM=1 31 3 NA NA NA
ctDNA.Stage.II.TNM=2 5 3 21.48 8.66 NA
ctDNA.Stage.II.TNM=3 9 3 49.70 49.70 NA
ctDNA.Stage.II.TNM=4 5 5 5.31 0.58 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","purple", "red"), title="OS - ctDNA MRD & ypTN", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA(-) & T1-T3", "ctDNA(+) & T1-T3", "ctDNA(-) & T4", "ctDNA(+) & T4"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Stage.II.TNM=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 31 0 1.000 0.0000 1.000 1.000
24 18 3 0.875 0.0681 0.658 0.959
ctDNA.Stage.II.TNM=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1
ctDNA.Stage.II.TNM=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 9 0 1.000 0.000 1.000 1.000
24 5 2 0.762 0.148 0.332 0.935
ctDNA.Stage.II.TNM=4
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1 circ_data$ctDNA.Stage.II.TNM <- factor(circ_data$ctDNA.Stage.II.TNM, levels=c("1","2","3","4"), labels = c("ctDNA(-) & T1-T3", "ctDNA(+) & T1-T3", "ctDNA(-) & T4", "ctDNA(+) & T4"))
cox_fit <- coxph(surv_object ~ ctDNA.Stage.II.TNM, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data)
n= 50, number of events= 14
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.Stage.II.TNMctDNA(+) & T1-T3 2.5315 12.5725 0.8498 2.979 0.00289 **
ctDNA.Stage.II.TNMctDNA(-) & T4 1.2740 3.5751 0.8169 1.560 0.11886
ctDNA.Stage.II.TNMctDNA(+) & T4 4.5082 90.7580 0.9252 4.873 1.1e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.Stage.II.TNMctDNA(+) & T1-T3 12.573 0.07954 2.377 66.49
ctDNA.Stage.II.TNMctDNA(-) & T4 3.575 0.27971 0.721 17.73
ctDNA.Stage.II.TNMctDNA(+) & T4 90.758 0.01102 14.804 556.40
Concordance= 0.829 (se = 0.056 )
Likelihood ratio test= 27.86 on 3 df, p=4e-06
Wald test = 24.63 on 3 df, p=2e-05
Score (logrank) test = 59.15 on 3 df, p=9e-13#Repeat analysis to compare ctDNA post-NAT (-) vs (+) in T4
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.Stage.II.Risk <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Stage.II.TNM = case_when(
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T1-T3" ~ 1,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T1-T3" ~ 2,
ctDNA.MRD == "NEGATIVE" & pT.Stage == "T4" ~ 3,
ctDNA.MRD == "POSITIVE" & pT.Stage == "T4" ~ 4
))
circ_data <- circ_data[circ_data$ctDNA.Stage.II.TNM!="",]
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.Stage.II.TNM, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.Stage.II.TNM, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Stage.II.TNM=1 31 3 NA NA NA
ctDNA.Stage.II.TNM=2 5 3 21.48 8.66 NA
ctDNA.Stage.II.TNM=3 9 3 49.70 49.70 NA
ctDNA.Stage.II.TNM=4 5 5 5.31 0.58 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","purple", "red"), title="OS - ctDNA MRD & ypTN", ylab= "Overall Survival Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA(-) & T1-T3", "ctDNA(+) & T1-T3", "ctDNA(-) & T4", "ctDNA(+) & T4"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Stage.II.TNM=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 31 0 1.000 0.0000 1.000 1.000
24 18 3 0.875 0.0681 0.658 0.959
ctDNA.Stage.II.TNM=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1
ctDNA.Stage.II.TNM=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 9 0 1.000 0.000 1.000 1.000
24 5 2 0.762 0.148 0.332 0.935
ctDNA.Stage.II.TNM=4
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1 circ_data$ctDNA.Stage.II.TNM <- factor(circ_data$ctDNA.Stage.II.TNM, levels=c("2","4","1","3"))
cox_fit <- coxph(surv_object ~ ctDNA.Stage.II.TNM, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data)
n= 50, number of events= 14
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.Stage.II.TNM4 1.97669 7.21877 0.84482 2.340 0.01930 *
ctDNA.Stage.II.TNM1 -2.53151 0.07954 0.84981 -2.979 0.00289 **
ctDNA.Stage.II.TNM3 -1.25752 0.28436 0.84413 -1.490 0.13629
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.Stage.II.TNM4 7.21877 0.1385 1.37833 37.8071
ctDNA.Stage.II.TNM1 0.07954 12.5725 0.01504 0.4207
ctDNA.Stage.II.TNM3 0.28436 3.5167 0.05437 1.4873
Concordance= 0.829 (se = 0.056 )
Likelihood ratio test= 27.86 on 3 df, p=4e-06
Wald test = 24.63 on 3 df, p=2e-05
Score (logrank) test = 59.15 on 3 df, p=9e-13#RFS by ctDNA at the MRD Window & ypN
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.Stage.II.Risk <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Stage.II.TNM = case_when(
ctDNA.MRD == "NEGATIVE" & ypNStatus == "N0" ~ 1,
ctDNA.MRD == "POSITIVE" & ypNStatus == "N0" ~ 2,
ctDNA.MRD == "NEGATIVE" & ypNStatus == "N1-N3" ~ 3,
ctDNA.MRD == "POSITIVE" & ypNStatus == "N1-N3" ~ 4
))
circ_data <- circ_data[circ_data$ctDNA.Stage.II.TNM!="",]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.Stage.II.TNM, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.Stage.II.TNM, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Stage.II.TNM=1 24 5 NA NA NA
ctDNA.Stage.II.TNM=2 1 1 1.70 NA NA
ctDNA.Stage.II.TNM=3 16 9 15.20 10.34 NA
ctDNA.Stage.II.TNM=4 6 6 3.97 3.51 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","purple", "red"), title="RFS - ctDNA MRD & ypN", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA(-) & ypN0", "ctDNA(+) & ypN0", "ctDNA(-) & ypN+", "ctDNA(+) & ypN+"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Stage.II.TNM=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 24 0 1.000 0.0000 1.000 1.00
24 17 4 0.823 0.0807 0.593 0.93
ctDNA.Stage.II.TNM=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 1 0 1 0 1 1
ctDNA.Stage.II.TNM=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 16 0 1.000 0.000 1.00000 1.000
24 1 9 0.148 0.132 0.00842 0.466
ctDNA.Stage.II.TNM=4
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 6 0 1 0 1 1 circ_data$ctDNA.Stage.II.TNM <- factor(circ_data$ctDNA.Stage.II.TNM, levels=c("1","2","3","4"), labels = c("ctDNA(-) & ypN0", "ctDNA(+) & ypN0", "ctDNA(-) & ypN+", "ctDNA(+) & ypN+"))
cox_fit <- coxph(surv_object ~ ctDNA.Stage.II.TNM, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data)
n= 47, number of events= 21
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.Stage.II.TNMctDNA(+) & ypN0 5.9532 384.9884 1.5428 3.859 0.000114 ***
ctDNA.Stage.II.TNMctDNA(-) & ypN+ 2.0297 7.6117 0.6062 3.348 0.000814 ***
ctDNA.Stage.II.TNMctDNA(+) & ypN+ 3.6876 39.9503 0.7639 4.827 1.38e-06 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.Stage.II.TNMctDNA(+) & ypN0 384.988 0.002597 18.715 7919.53
ctDNA.Stage.II.TNMctDNA(-) & ypN+ 7.612 0.131377 2.320 24.97
ctDNA.Stage.II.TNMctDNA(+) & ypN+ 39.950 0.025031 8.939 178.56
Concordance= 0.792 (se = 0.048 )
Likelihood ratio test= 31.15 on 3 df, p=8e-07
Wald test = 27.95 on 3 df, p=4e-06
Score (logrank) test = 54.44 on 3 df, p=9e-12#OS by ctDNA at the MRD Window & ypN
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.Stage.II.Risk <- NA #first we create the variable for the ctDNA & NAC combination, and we assign values
circ_data <- circ_data %>%
mutate(ctDNA.Stage.II.TNM = case_when(
ctDNA.MRD == "NEGATIVE" & ypNStatus == "N0" ~ 1,
ctDNA.MRD == "POSITIVE" & ypNStatus == "N0" ~ 2,
ctDNA.MRD == "NEGATIVE" & ypNStatus == "N1-N3" ~ 3,
ctDNA.MRD == "POSITIVE" & ypNStatus == "N1-N3" ~ 4
))
circ_data <- circ_data[circ_data$ctDNA.Stage.II.TNM!="",]
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.Stage.II.TNM, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.Stage.II.TNM, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.Stage.II.TNM=1 24 2 NA NA NA
ctDNA.Stage.II.TNM=2 2 2 4.46 0.38 NA
ctDNA.Stage.II.TNM=3 16 4 NA 21.25 NA
ctDNA.Stage.II.TNM=4 8 6 9.46 5.54 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","purple", "red"), title="OS - ctDNA MRD & ypN", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA(-) & ypN0", "ctDNA(+) & ypN0", "ctDNA(-) & ypN+", "ctDNA(+) & ypN+"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.Stage.II.TNM=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 24 0 1.000 0.0000 1.000 1.000
24 20 1 0.957 0.0425 0.729 0.994
ctDNA.Stage.II.TNM=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 2 0 1 0 1 1
ctDNA.Stage.II.TNM=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 16 0 1.000 0.00 1.000 1.000
24 3 4 0.565 0.19 0.165 0.835
ctDNA.Stage.II.TNM=4
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 8 0 1 0 1 1 circ_data$ctDNA.Stage.II.TNM <- factor(circ_data$ctDNA.Stage.II.TNM, levels=c("1","2","3","4"), labels = c("ctDNA(-) & ypN0", "ctDNA(+) & ypN0", "ctDNA(-) & ypN+", "ctDNA(+) & ypN+"))
cox_fit <- coxph(surv_object ~ ctDNA.Stage.II.TNM, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.Stage.II.TNM, data = circ_data)
n= 50, number of events= 14
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.Stage.II.TNMctDNA(+) & ypN0 5.0035 148.9381 1.1735 4.264 2.01e-05 ***
ctDNA.Stage.II.TNMctDNA(-) & ypN+ 1.8810 6.5597 0.9016 2.086 0.037 *
ctDNA.Stage.II.TNMctDNA(+) & ypN+ 3.5092 33.4225 0.8993 3.902 9.53e-05 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.Stage.II.TNMctDNA(+) & ypN0 148.94 0.006714 14.932 1485.5
ctDNA.Stage.II.TNMctDNA(-) & ypN+ 6.56 0.152445 1.120 38.4
ctDNA.Stage.II.TNMctDNA(+) & ypN+ 33.42 0.029920 5.736 194.8
Concordance= 0.86 (se = 0.04 )
Likelihood ratio test= 26.4 on 3 df, p=8e-06
Wald test = 23 on 3 df, p=4e-05
Score (logrank) test = 46.69 on 3 df, p=4e-10#RFS by ctDNA at the MRD Window & TRG combination (TRG1/2/3 vs TRG3-5)
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_data$TRG <- factor(circ_data$TRG, levels = c("TRG1/2/3", "TRG4/5"))
circ_data$ctDNA.pCR <- NA
circ_data <- circ_data %>%
mutate(ctDNA.pCR = case_when(
ctDNA.MRD == "NEGATIVE" & TRG == "TRG1/2/3" ~ "1",
ctDNA.MRD == "NEGATIVE" & TRG == "TRG4/5" ~ "2",
ctDNA.MRD == "POSITIVE" & TRG == "TRG4/5" ~ "3"
))
circ_data <- circ_data[!is.na(circ_data$ctDNA.pCR),]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.pCR, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.pCR, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.pCR=1 23 6 NA 39.09 NA
ctDNA.pCR=2 12 6 15.60 11.55 NA
ctDNA.pCR=3 3 3 4.36 3.21 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.pCR, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","red"), title="RFS - ctDNA MRD/TRG", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("TRG1/2/3 ctDNA (-)","TRG4/5 ctDNA (-)", "TRG4/5 ctDNA (+)"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.pCR, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.pCR=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 23 0 1.000 0.0000 1.000 1.000
24 12 5 0.749 0.0993 0.492 0.889
ctDNA.pCR=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 12 0 1.000 0.000 1.000 1.000
24 4 6 0.417 0.157 0.131 0.686
ctDNA.pCR=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 3 0 1 0 1 1 circ_data$ctDNA.pCR <- factor(circ_data$ctDNA.pCR, levels=c("1","2","3"), labels=c("TRG1/2/3 ctDNA (-)","TRG4/5 ctDNA (-)", "TRG4/5 ctDNA (+)"))
cox_fit <- coxph(surv_object ~ ctDNA.pCR, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.pCR, data = circ_data)
n= 38, number of events= 15
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.pCRTRG4/5 ctDNA (-) 0.9323 2.5404 0.5794 1.609 0.107610
ctDNA.pCRTRG4/5 ctDNA (+) 3.0190 20.4704 0.8850 3.411 0.000647 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.pCRTRG4/5 ctDNA (-) 2.54 0.39364 0.816 7.909
ctDNA.pCRTRG4/5 ctDNA (+) 20.47 0.04885 3.612 116.004
Concordance= 0.7 (se = 0.064 )
Likelihood ratio test= 10.66 on 2 df, p=0.005
Wald test = 11.83 on 2 df, p=0.003
Score (logrank) test = 19.3 on 2 df, p=6e-05#OS by ctDNA at the MRD Window & TRG combination (TRG1/2/3 vs TRG3-5)
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_data$TRG <- factor(circ_data$TRG, levels = c("TRG1/2/3", "TRG4/5"))
circ_data$ctDNA.pCR <- NA
circ_data <- circ_data %>%
mutate(ctDNA.pCR = case_when(
ctDNA.MRD == "NEGATIVE" & TRG == "TRG1/2/3" ~ "1",
ctDNA.MRD == "NEGATIVE" & TRG == "TRG4/5" ~ "2",
ctDNA.MRD == "POSITIVE" & TRG == "TRG4/5" ~ "3"
))
circ_data <- circ_data[!is.na(circ_data$ctDNA.pCR),]
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.pCR, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.pCR, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.pCR=1 23 3 NA 49.70 NA
ctDNA.pCR=2 12 3 NA 16.09 NA
ctDNA.pCR=3 6 6 5.42 0.58 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.pCR, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","green","red"), title="OS - ctDNA MRD/TRG", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("TRG1/2/3 ctDNA (-)","TRG4/5 ctDNA (-)", "TRG4/5 ctDNA (+)"), legend.title="")
summary(KM_curve, times= c(0,24))Call: survfit(formula = surv_object ~ ctDNA.pCR, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.pCR=1
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 23 0 1.000 0.0000 1.000 1.000
24 13 2 0.886 0.0776 0.607 0.971
ctDNA.pCR=2
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 12 0 1.0 0.000 1.000 1.000
24 6 3 0.7 0.145 0.329 0.892
ctDNA.pCR=3
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 6 0 1 0 1 1 circ_data$ctDNA.pCR <- factor(circ_data$ctDNA.pCR, levels=c("1","2","3"), labels=c("TRG1/2/3 ctDNA (-)","TRG4/5 ctDNA (-)", "TRG4/5 ctDNA (+)"))
cox_fit <- coxph(surv_object ~ ctDNA.pCR, data=circ_data)
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.pCR, data = circ_data)
n= 41, number of events= 12
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.pCRTRG4/5 ctDNA (-) 0.6450 1.9061 0.8202 0.786 0.432
ctDNA.pCRTRG4/5 ctDNA (+) 3.1621 23.6201 0.7401 4.273 1.93e-05 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.pCRTRG4/5 ctDNA (-) 1.906 0.52464 0.3819 9.513
ctDNA.pCRTRG4/5 ctDNA (+) 23.620 0.04234 5.5374 100.753
Concordance= 0.812 (se = 0.065 )
Likelihood ratio test= 18.73 on 2 df, p=9e-05
Wald test = 21.36 on 2 df, p=2e-05
Score (logrank) test = 38.75 on 2 df, p=4e-09#RFS by ctDNA at the MRD Window & ypTN Characteristics
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included == TRUE,]
circ_data$DFS.months <- circ_data$DFS.months - 3
circ_data <- circ_data[circ_data$DFS.months >= 0,]
circ_data$ctDNA.pCR <- NA
# Define new categories
circ_data <- circ_data %>%
mutate(ctDNA.pCR = case_when(
ctDNA.MRD == "NEGATIVE" & pT.Stage=="T1-T3" & ypNStatus == "N0" ~ "1",
ctDNA.MRD == "POSITIVE" | pT.Stage == "T4" | ypNStatus == "N1-N3" ~ "2"
))
circ_data <- circ_data[!is.na(circ_data$ctDNA.pCR),]
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.pCR, data = circ_data)
surv_object <- Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.pCR, data = circ_data, conf.int = 0.95, conf.type = "log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE,
break.time.by = 12, palette = c("blue", "red"),
title = "RFS - ctDNA MRD/Clinical Characteristics",
ylab = "Recurrence-Free Survival", xlab = "Time from Landmark Time point (Months)",
legend.labs = c("MRD neg, T1-T3, N0", "MRD pos or T4 or N1-N3"),
legend.title = "")
summary(KM_curve, times = c(0, 24))
circ_data$ctDNA.pCR <- factor(circ_data$ctDNA.pCR, levels=c("1","2"), labels=c("MRD neg, T1-T3, N0","MRD pos or T4 or N1-N3"))
cox_fit <- coxph(surv_object ~ ctDNA.pCR, data=circ_data)
summary(cox_fit)
cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)#OS by ctDNA at the MRD Window & ypTN Characteristics
# Clear workspace and set working directory
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included == TRUE,]
circ_data$FU.months <- circ_data$FU.months - 3
circ_data <- circ_data[circ_data$FU.months >= 0,]
circ_data$ctDNA.pCR <- NA
# Define new categories
circ_data <- circ_data %>%
mutate(ctDNA.pCR = case_when(
ctDNA.MRD == "NEGATIVE" & pT.Stage=="T1-T3" & ypNStatus == "N0" ~ "1",
ctDNA.MRD == "POSITIVE" | pT.Stage == "T4" | ypNStatus == "N1-N3" ~ "2"
))
circ_data <- circ_data[!is.na(circ_data$ctDNA.pCR),]
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.pCR, data = circ_data)
surv_object <- Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.pCR, data = circ_data, conf.int = 0.95, conf.type = "log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE,
break.time.by = 12, palette = c("blue", "red"),
title = "OS - ctDNA MRD/Clinical Characteristics",
ylab = "Overall Survival", xlab = "Time from Landmark Time point (Months)",
legend.labs = c("MRD neg, T1-T3, N0", "MRD pos or T4 or N1-N3"),
legend.title = "")
summary(KM_curve, times = c(0, 24))
circ_data$ctDNA.pCR <- factor(circ_data$ctDNA.pCR, levels=c("1","2"), labels=c("MRD neg, T1-T3, N0","MRD pos or T4 or N1-N3"))
cox_fit <- coxphf(surv_object ~ ctDNA.pCR, data=circ_data)
summary(cox_fit)#Multivariate cox regression for RFS - ctDNA MRD Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"), labels = c("Negative", "Positive"))
circ_data$PrimSite <- factor(circ_data$PrimSite, levels=c("Stomach","G/J"))
circ_data$Gender <- factor(circ_data$Gender, levels=c("Male","Female"))
circ_data$Age.Group <- factor(circ_data$Age.Group, levels=c("2","1"), labels = c(">70", "≤70"))
circ_data$pT.Stage <- factor(circ_data$pT.Stage, levels=c("T1-T3","T4"))
circ_data$ypNStatus <- factor(circ_data$ypNStatus, levels=c("N0","N1-N3"))
circ_data$TRG <- factor(circ_data$TRG, levels=c("TRG1/2/3","TRG4/5"))
surv_object <- Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
cox_fit <- coxph(surv_object ~ ctDNA.MRD + PrimSite + pT.Stage + ypNStatus + TRG, data=circ_data)
ggforest(cox_fit, data = circ_data, main = "Multivariate Regression Model for RFS", refLabel = "Reference Group")
test.ph <- cox.zph(cox_fit)#Multivariate cox regression for OS - ctDNA MRD Window
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.MRD!="",]
circ_datadf <- as.data.frame(circ_data)
circ_data$ctDNA.MRD <- factor(circ_data$ctDNA.MRD, levels=c("NEGATIVE","POSITIVE"), labels = c("Negative", "Positive"))
circ_data$PrimSite <- factor(circ_data$PrimSite, levels=c("Stomach","G/J"))
circ_data$Gender <- factor(circ_data$Gender, levels=c("Male","Female"))
circ_data$Age.Group <- factor(circ_data$Age.Group, levels=c("2","1"), labels = c(">70", "≤70"))
circ_data$pT.Stage <- factor(circ_data$pT.Stage, levels=c("T1-T3","T4"))
circ_data$ypNStatus <- factor(circ_data$ypNStatus, levels=c("N0","N1-N3"))
circ_data$TRG <- factor(circ_data$TRG, levels=c("TRG1/2/3","TRG4/5"))
surv_object <- Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
cox_fit <- coxph(surv_object ~ ctDNA.MRD + PrimSite + pT.Stage + ypNStatus + TRG, data=circ_data)
ggforest(cox_fit, data = circ_data, main = "Multivariate Regression Model for OS", refLabel = "Reference Group")
test.ph <- cox.zph(cox_fit)#RFS by ctDNA at the Surveillance Window - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.surveillance!="",]
circ_data$DFS.months=circ_data$DFS.months-3
circ_data <- circ_data[circ_data$DFS.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)~ctDNA.surveillance, data = circ_data)Call: survfit(formula = Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event) ~
ctDNA.surveillance, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.surveillance=NEGATIVE 33 10 NA 39.09 NA
ctDNA.surveillance=POSITIVE 4 4 6.27 3.21 NAsurv_object <-Surv(time = circ_data$DFS.months, event = circ_data$DFS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.surveillance, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","red"), title="RFS - ctDNA Surveillance window | All pts", ylab= "Recurrence-Free Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.surveillance, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.surveillance=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 33 0 1.000 0.0000 1.00 1.00
24 16 9 0.679 0.0896 0.47 0.82
ctDNA.surveillance=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 4 0 1 0 1 1 circ_data$ctDNA.surveillance <- factor(circ_data$ctDNA.surveillance, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.surveillance, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.surveillance, data = circ_data)
n= 37, number of events= 14
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.surveillancePOSITIVE 2.7504 15.6482 0.7292 3.772 0.000162 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.surveillancePOSITIVE 15.65 0.06391 3.748 65.34
Concordance= 0.657 (se = 0.06 )
Likelihood ratio test= 11.52 on 1 df, p=7e-04
Wald test = 14.23 on 1 df, p=2e-04
Score (logrank) test = 24.6 on 1 df, p=7e-07cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 15.65 (3.75-65.34); p = 0"#OS by ctDNA at the Surveillance Window - all stages
rm(list=ls())
setwd("~/Downloads")
circ_data <- read.csv("PLAGAST_Clinical Data.csv")
circ_data <- circ_data[circ_data$Included==TRUE,]
circ_data <- circ_data[circ_data$ctDNA.surveillance!="",]
circ_data$FU.months=circ_data$FU.months-3
circ_data <- circ_data[circ_data$FU.months>=0,]
circ_datadf <- as.data.frame(circ_data)
survfit(Surv(time = circ_data$FU.months, event = circ_data$OS.Event)~ctDNA.surveillance, data = circ_data)Call: survfit(formula = Surv(time = circ_data$FU.months, event = circ_data$OS.Event) ~
ctDNA.surveillance, data = circ_data)
n events median 0.95LCL 0.95UCL
ctDNA.surveillance=NEGATIVE 33 5 NA NA NA
ctDNA.surveillance=POSITIVE 5 3 8.66 5.54 NAsurv_object <-Surv(time = circ_data$FU.months, event = circ_data$OS.Event)
KM_curve <- survfit(surv_object ~ ctDNA.surveillance, data = circ_data,conf.int=0.95,conf.type="log-log")
ggsurvplot(KM_curve, data = circ_data, pval = FALSE, conf.int = FALSE, risk.table = TRUE, break.time.by=12, palette=c("blue","red"), title="OS - ctDNA Surveillance window | All pts", ylab= "Overall Survival", xlab="Time from Landmark Time point (Months)", legend.labs=c("ctDNA Negative", "ctDNA Positive"), legend.title="")
summary(KM_curve, times= c(0, 24))Call: survfit(formula = surv_object ~ ctDNA.surveillance, data = circ_data,
conf.int = 0.95, conf.type = "log-log")
ctDNA.surveillance=NEGATIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 33 0 1.000 0.0000 1.000 1.000
24 20 3 0.886 0.0626 0.684 0.962
ctDNA.surveillance=POSITIVE
time n.risk n.event survival std.err lower 95% CI upper 95% CI
0 5 0 1 0 1 1 circ_data$ctDNA.surveillance <- factor(circ_data$ctDNA.surveillance, levels=c("NEGATIVE","POSITIVE"))
cox_fit <- coxph(surv_object ~ ctDNA.surveillance, data=circ_data)
ggforest(cox_fit,data = circ_data) 
summary(cox_fit)Call:
coxph(formula = surv_object ~ ctDNA.surveillance, data = circ_data)
n= 38, number of events= 8
coef exp(coef) se(coef) z Pr(>|z|)
ctDNA.surveillancePOSITIVE 2.7378 15.4530 0.9239 2.963 0.00304 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
exp(coef) exp(-coef) lower .95 upper .95
ctDNA.surveillancePOSITIVE 15.45 0.06471 2.527 94.5
Concordance= 0.727 (se = 0.088 )
Likelihood ratio test= 8.06 on 1 df, p=0.005
Wald test = 8.78 on 1 df, p=0.003
Score (logrank) test = 15.41 on 1 df, p=9e-05cox_fit_summary <- summary(cox_fit)
# Extract values for HR, 95% CI, and p-value
HR <- cox_fit_summary$coefficients[2]
lower_CI <- cox_fit_summary$conf.int[3]
upper_CI <- cox_fit_summary$conf.int[4]
p_value <- cox_fit_summary$coefficients[5]
label_text <- paste0("HR = ", round(HR, 2), " (", round(lower_CI, 2), "-", round(upper_CI, 2), "); p = ", round(p_value, 3))
print(label_text)[1] "HR = 15.45 (2.53-94.5); p = 0.003"LS0tCnRpdGxlOiAiQUdFTyBQTEFHQVNUX0NsaW5pY2FsIEZpbmFsIGFuYWx5c2lzX3JldmlzaW9ucyAwNTA0MjAyNSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpsaWJyYXJ5KHN3aW1wbG90KQpsaWJyYXJ5KGNveHBoZikKbGlicmFyeShncmlkKQpsaWJyYXJ5KGd0YWJsZSkKbGlicmFyeShyZWFkcikgCmxpYnJhcnkobW9zYWljKQpsaWJyYXJ5KGRwbHlyKSAKbGlicmFyeShzdXJ2aXZhbCkgCmxpYnJhcnkoc3Vydm1pbmVyKSAKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHNjYWxlcykKbGlicmFyeShjb3hwaGYpCmxpYnJhcnkoZ2d0aGVtZXMpCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGd0c3VtbWFyeSkKbGlicmFyeShmbGV4dGFibGUpCmxpYnJhcnkocGFyYW1ldGVycykKbGlicmFyeShjYXIpCmxpYnJhcnkoQ29tcGxleEhlYXRtYXApCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHJlYWR4bCkKbGlicmFyeShzdXJ2aXZhbCkKbGlicmFyeShqYW5pdG9yKQpsaWJyYXJ5KG9wZW54bHN4KQpsaWJyYXJ5KHdyaXRleGwpCmxpYnJhcnkocm1zKQpsaWJyYXJ5KHBST0MpCmxpYnJhcnkoRFQpCgojY3RETkEgRGV0ZWN0aW9uIHJhdGUgYnkgU3RhZ2UgYW5kIFdpbmRvdwpgYGB7cn0KI0Jhc2VsaW5lCnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEkY3RETkEuQmFzZSA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLkJhc2UsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNpcmNfZGF0YSRTdGFnZSA8LSBmYWN0b3IoY2lyY19kYXRhJFN0YWdlLCBsZXZlbHM9YygiSSIsIklJIiwiSUlJIikpCmNpcmNfZGF0YSA8LSBzdWJzZXQoY2lyY19kYXRhLCBjdEROQS5CYXNlICVpbiUgYygiTkVHQVRJVkUiLCAiUE9TSVRJVkUiKSkKcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlIDwtIGFnZ3JlZ2F0ZShjaXJjX2RhdGEkY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiLCBieT1saXN0KGNpcmNfZGF0YSRTdGFnZSksIEZVTj1zdW0pCnRvdGFsX2NvdW50c19ieV9zdGFnZSA8LSBhZ2dyZWdhdGUoY2lyY19kYXRhJGN0RE5BLkJhc2UsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPWxlbmd0aCkKY29tYmluZWRfZGF0YSA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gdG90YWxfY291bnRzX2J5X3N0YWdlJEdyb3VwLjEsCiAgVG90YWxfQ291bnQgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCwKICBQb3NpdGl2ZV9Db3VudCA9IHBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSR4LAogIFJhdGUgPSAocG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHggLyB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCikKY29tYmluZWRfZGF0YSRSYXRlIDwtIHNwcmludGYoIiUuMmYlJSIsIGNvbWJpbmVkX2RhdGEkUmF0ZSkKb3ZlcmFsbF90b3RhbF9jb3VudCA8LSBucm93KGNpcmNfZGF0YSkKb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCA8LSBucm93KGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiLF0pCm92ZXJhbGxfcG9zaXRpdml0eV9yYXRlIDwtIChvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IC8gb3ZlcmFsbF90b3RhbF9jb3VudCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCm92ZXJhbGxfcm93IDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSAiT3ZlcmFsbCIsCiAgVG90YWxfQ291bnQgPSBvdmVyYWxsX3RvdGFsX2NvdW50LAogIFBvc2l0aXZlX0NvdW50ID0gb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCwKICBSYXRlID0gc3ByaW50ZigiJS4yZiUlIiwgb3ZlcmFsbF9wb3NpdGl2aXR5X3JhdGUpCikKY29tYmluZWRfZGF0YSA8LSByYmluZChjb21iaW5lZF9kYXRhLCBvdmVyYWxsX3JvdykKcHJpbnQoY29tYmluZWRfZGF0YSkKCiNDMkQxCnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEkY3RETkEuQzJEMSA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLkMyRDEsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNpcmNfZGF0YSRTdGFnZSA8LSBmYWN0b3IoY2lyY19kYXRhJFN0YWdlLCBsZXZlbHM9YygiSSIsIklJIiwiSUlJIikpCmNpcmNfZGF0YSA8LSBzdWJzZXQoY2lyY19kYXRhLCBjdEROQS5DMkQxICVpbiUgYygiTkVHQVRJVkUiLCAiUE9TSVRJVkUiKSkKcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlIDwtIGFnZ3JlZ2F0ZShjaXJjX2RhdGEkY3RETkEuQzJEMSA9PSAiUE9TSVRJVkUiLCBieT1saXN0KGNpcmNfZGF0YSRTdGFnZSksIEZVTj1zdW0pCnRvdGFsX2NvdW50c19ieV9zdGFnZSA8LSBhZ2dyZWdhdGUoY2lyY19kYXRhJGN0RE5BLkMyRDEsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPWxlbmd0aCkKY29tYmluZWRfZGF0YSA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gdG90YWxfY291bnRzX2J5X3N0YWdlJEdyb3VwLjEsCiAgVG90YWxfQ291bnQgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCwKICBQb3NpdGl2ZV9Db3VudCA9IHBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSR4LAogIFJhdGUgPSAocG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHggLyB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCikKY29tYmluZWRfZGF0YSRSYXRlIDwtIHNwcmludGYoIiUuMmYlJSIsIGNvbWJpbmVkX2RhdGEkUmF0ZSkKb3ZlcmFsbF90b3RhbF9jb3VudCA8LSBucm93KGNpcmNfZGF0YSkKb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCA8LSBucm93KGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQzJEMSA9PSAiUE9TSVRJVkUiLF0pCm92ZXJhbGxfcG9zaXRpdml0eV9yYXRlIDwtIChvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IC8gb3ZlcmFsbF90b3RhbF9jb3VudCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCm92ZXJhbGxfcm93IDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSAiT3ZlcmFsbCIsCiAgVG90YWxfQ291bnQgPSBvdmVyYWxsX3RvdGFsX2NvdW50LAogIFBvc2l0aXZlX0NvdW50ID0gb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCwKICBSYXRlID0gc3ByaW50ZigiJS4yZiUlIiwgb3ZlcmFsbF9wb3NpdGl2aXR5X3JhdGUpCikKY29tYmluZWRfZGF0YSA8LSByYmluZChjb21iaW5lZF9kYXRhLCBvdmVyYWxsX3JvdykKcHJpbnQoY29tYmluZWRfZGF0YSkKCiNwb3N0LU5BQyBXaW5kb3cKcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSRjdEROQS5wb3N0TkFDIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEucG9zdE5BQywgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY2lyY19kYXRhJFN0YWdlIDwtIGZhY3RvcihjaXJjX2RhdGEkU3RhZ2UsIGxldmVscz1jKCJJIiwiSUkiLCJJSUkiKSkKY2lyY19kYXRhIDwtIHN1YnNldChjaXJjX2RhdGEsIGN0RE5BLnBvc3ROQUMgJWluJSBjKCJORUdBVElWRSIsICJQT1NJVElWRSIpKQpwb3NpdGl2ZV9jb3VudHNfYnlfc3RhZ2UgPC0gYWdncmVnYXRlKGNpcmNfZGF0YSRjdEROQS5wb3N0TkFDID09ICJQT1NJVElWRSIsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPXN1bSkKdG90YWxfY291bnRzX2J5X3N0YWdlIDwtIGFnZ3JlZ2F0ZShjaXJjX2RhdGEkY3RETkEucG9zdE5BQywgYnk9bGlzdChjaXJjX2RhdGEkU3RhZ2UpLCBGVU49bGVuZ3RoKQpjb21iaW5lZF9kYXRhIDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkR3JvdXAuMSwKICBUb3RhbF9Db3VudCA9IHRvdGFsX2NvdW50c19ieV9zdGFnZSR4LAogIFBvc2l0aXZlX0NvdW50ID0gcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHgsCiAgUmF0ZSA9IChwb3NpdGl2ZV9jb3VudHNfYnlfc3RhZ2UkeCAvIHRvdGFsX2NvdW50c19ieV9zdGFnZSR4KSAqIDEwMCAgIyBDb252ZXJ0IHRvIHBlcmNlbnRhZ2UKKQpjb21iaW5lZF9kYXRhJFJhdGUgPC0gc3ByaW50ZigiJS4yZiUlIiwgY29tYmluZWRfZGF0YSRSYXRlKQpvdmVyYWxsX3RvdGFsX2NvdW50IDwtIG5yb3coY2lyY19kYXRhKQpvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IDwtIG5yb3coY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5wb3N0TkFDID09ICJQT1NJVElWRSIsXSkKb3ZlcmFsbF9wb3NpdGl2aXR5X3JhdGUgPC0gKG92ZXJhbGxfcG9zaXRpdmVfY291bnQgLyBvdmVyYWxsX3RvdGFsX2NvdW50KSAqIDEwMCAgIyBDb252ZXJ0IHRvIHBlcmNlbnRhZ2UKb3ZlcmFsbF9yb3cgPC0gZGF0YS5mcmFtZSgKICBTdGFnZSA9ICJPdmVyYWxsIiwKICBUb3RhbF9Db3VudCA9IG92ZXJhbGxfdG90YWxfY291bnQsCiAgUG9zaXRpdmVfQ291bnQgPSBvdmVyYWxsX3Bvc2l0aXZlX2NvdW50LAogIFJhdGUgPSBzcHJpbnRmKCIlLjJmJSUiLCBvdmVyYWxsX3Bvc2l0aXZpdHlfcmF0ZSkKKQpjb21iaW5lZF9kYXRhIDwtIHJiaW5kKGNvbWJpbmVkX2RhdGEsIG92ZXJhbGxfcm93KQpwcmludChjb21iaW5lZF9kYXRhKQoKI01SRCBXaW5kb3cKcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSRjdEROQS5NUkQgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5NUkQsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNpcmNfZGF0YSRTdGFnZSA8LSBmYWN0b3IoY2lyY19kYXRhJFN0YWdlLCBsZXZlbHM9YygiSSIsIklJIiwiSUlJIikpCmNpcmNfZGF0YSA8LSBzdWJzZXQoY2lyY19kYXRhLCBjdEROQS5NUkQgJWluJSBjKCJORUdBVElWRSIsICJQT1NJVElWRSIpKQpwb3NpdGl2ZV9jb3VudHNfYnlfc3RhZ2UgPC0gYWdncmVnYXRlKGNpcmNfZGF0YSRjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiwgYnk9bGlzdChjaXJjX2RhdGEkU3RhZ2UpLCBGVU49c3VtKQp0b3RhbF9jb3VudHNfYnlfc3RhZ2UgPC0gYWdncmVnYXRlKGNpcmNfZGF0YSRjdEROQS5NUkQsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPWxlbmd0aCkKY29tYmluZWRfZGF0YSA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gdG90YWxfY291bnRzX2J5X3N0YWdlJEdyb3VwLjEsCiAgVG90YWxfQ291bnQgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCwKICBQb3NpdGl2ZV9Db3VudCA9IHBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSR4LAogIFJhdGUgPSAocG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHggLyB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCikKY29tYmluZWRfZGF0YSRSYXRlIDwtIHNwcmludGYoIiUuMmYlJSIsIGNvbWJpbmVkX2RhdGEkUmF0ZSkKb3ZlcmFsbF90b3RhbF9jb3VudCA8LSBucm93KGNpcmNfZGF0YSkKb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCA8LSBucm93KGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuTVJEID09ICJQT1NJVElWRSIsXSkKb3ZlcmFsbF9wb3NpdGl2aXR5X3JhdGUgPC0gKG92ZXJhbGxfcG9zaXRpdmVfY291bnQgLyBvdmVyYWxsX3RvdGFsX2NvdW50KSAqIDEwMCAgIyBDb252ZXJ0IHRvIHBlcmNlbnRhZ2UKb3ZlcmFsbF9yb3cgPC0gZGF0YS5mcmFtZSgKICBTdGFnZSA9ICJPdmVyYWxsIiwKICBUb3RhbF9Db3VudCA9IG92ZXJhbGxfdG90YWxfY291bnQsCiAgUG9zaXRpdmVfQ291bnQgPSBvdmVyYWxsX3Bvc2l0aXZlX2NvdW50LAogIFJhdGUgPSBzcHJpbnRmKCIlLjJmJSUiLCBvdmVyYWxsX3Bvc2l0aXZpdHlfcmF0ZSkKKQpjb21iaW5lZF9kYXRhIDwtIHJiaW5kKGNvbWJpbmVkX2RhdGEsIG92ZXJhbGxfcm93KQpwcmludChjb21iaW5lZF9kYXRhKQoKI09uLXRyZWF0bWVudApybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhJGN0RE5BLm9uQUNUIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEub25BQ1QsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNpcmNfZGF0YSRTdGFnZSA8LSBmYWN0b3IoY2lyY19kYXRhJFN0YWdlLCBsZXZlbHM9YygiSSIsIklJIiwiSUlJIikpCmNpcmNfZGF0YSA8LSBzdWJzZXQoY2lyY19kYXRhLCBjdEROQS5vbkFDVCAlaW4lIGMoIk5FR0FUSVZFIiwgIlBPU0lUSVZFIikpCnBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSA8LSBhZ2dyZWdhdGUoY2lyY19kYXRhJGN0RE5BLm9uQUNUID09ICJQT1NJVElWRSIsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPXN1bSkKdG90YWxfY291bnRzX2J5X3N0YWdlIDwtIGFnZ3JlZ2F0ZShjaXJjX2RhdGEkY3RETkEub25BQ1QsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPWxlbmd0aCkKY29tYmluZWRfZGF0YSA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gdG90YWxfY291bnRzX2J5X3N0YWdlJEdyb3VwLjEsCiAgVG90YWxfQ291bnQgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCwKICBQb3NpdGl2ZV9Db3VudCA9IHBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSR4LAogIFJhdGUgPSAocG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHggLyB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCikKY29tYmluZWRfZGF0YSRSYXRlIDwtIHNwcmludGYoIiUuMmYlJSIsIGNvbWJpbmVkX2RhdGEkUmF0ZSkKb3ZlcmFsbF90b3RhbF9jb3VudCA8LSBucm93KGNpcmNfZGF0YSkKb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCA8LSBucm93KGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEub25BQ1QgPT0gIlBPU0lUSVZFIixdKQpvdmVyYWxsX3Bvc2l0aXZpdHlfcmF0ZSA8LSAob3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCAvIG92ZXJhbGxfdG90YWxfY291bnQpICogMTAwICAjIENvbnZlcnQgdG8gcGVyY2VudGFnZQpvdmVyYWxsX3JvdyA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gIk92ZXJhbGwiLAogIFRvdGFsX0NvdW50ID0gb3ZlcmFsbF90b3RhbF9jb3VudCwKICBQb3NpdGl2ZV9Db3VudCA9IG92ZXJhbGxfcG9zaXRpdmVfY291bnQsCiAgUmF0ZSA9IHNwcmludGYoIiUuMmYlJSIsIG92ZXJhbGxfcG9zaXRpdml0eV9yYXRlKQopCmNvbWJpbmVkX2RhdGEgPC0gcmJpbmQoY29tYmluZWRfZGF0YSwgb3ZlcmFsbF9yb3cpCnByaW50KGNvbWJpbmVkX2RhdGEpCgojU3VydmVpbGxhbmNlIFdpbmRvdwpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhJGN0RE5BLnN1cnZlaWxsYW5jZSA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLnN1cnZlaWxsYW5jZSwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY2lyY19kYXRhJFN0YWdlIDwtIGZhY3RvcihjaXJjX2RhdGEkU3RhZ2UsIGxldmVscz1jKCJJIiwiSUkiLCJJSUkiKSkKY2lyY19kYXRhIDwtIHN1YnNldChjaXJjX2RhdGEsIGN0RE5BLnN1cnZlaWxsYW5jZSAlaW4lIGMoIk5FR0FUSVZFIiwgIlBPU0lUSVZFIikpCnBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSA8LSBhZ2dyZWdhdGUoY2lyY19kYXRhJGN0RE5BLnN1cnZlaWxsYW5jZSA9PSAiUE9TSVRJVkUiLCBieT1saXN0KGNpcmNfZGF0YSRTdGFnZSksIEZVTj1zdW0pCnRvdGFsX2NvdW50c19ieV9zdGFnZSA8LSBhZ2dyZWdhdGUoY2lyY19kYXRhJGN0RE5BLnN1cnZlaWxsYW5jZSwgYnk9bGlzdChjaXJjX2RhdGEkU3RhZ2UpLCBGVU49bGVuZ3RoKQpjb21iaW5lZF9kYXRhIDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkR3JvdXAuMSwKICBUb3RhbF9Db3VudCA9IHRvdGFsX2NvdW50c19ieV9zdGFnZSR4LAogIFBvc2l0aXZlX0NvdW50ID0gcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHgsCiAgUmF0ZSA9IChwb3NpdGl2ZV9jb3VudHNfYnlfc3RhZ2UkeCAvIHRvdGFsX2NvdW50c19ieV9zdGFnZSR4KSAqIDEwMCAgIyBDb252ZXJ0IHRvIHBlcmNlbnRhZ2UKKQpjb21iaW5lZF9kYXRhJFJhdGUgPC0gc3ByaW50ZigiJS4yZiUlIiwgY29tYmluZWRfZGF0YSRSYXRlKQpvdmVyYWxsX3RvdGFsX2NvdW50IDwtIG5yb3coY2lyY19kYXRhKQpvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IDwtIG5yb3coY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5zdXJ2ZWlsbGFuY2UgPT0gIlBPU0lUSVZFIixdKQpvdmVyYWxsX3Bvc2l0aXZpdHlfcmF0ZSA8LSAob3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCAvIG92ZXJhbGxfdG90YWxfY291bnQpICogMTAwICAjIENvbnZlcnQgdG8gcGVyY2VudGFnZQpvdmVyYWxsX3JvdyA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gIk92ZXJhbGwiLAogIFRvdGFsX0NvdW50ID0gb3ZlcmFsbF90b3RhbF9jb3VudCwKICBQb3NpdGl2ZV9Db3VudCA9IG92ZXJhbGxfcG9zaXRpdmVfY291bnQsCiAgUmF0ZSA9IHNwcmludGYoIiUuMmYlJSIsIG92ZXJhbGxfcG9zaXRpdml0eV9yYXRlKQopCmNvbWJpbmVkX2RhdGEgPC0gcmJpbmQoY29tYmluZWRfZGF0YSwgb3ZlcmFsbF9yb3cpCnByaW50KGNvbWJpbmVkX2RhdGEpCgojUG9zdC1BQ1QgV2luZG93CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEkY3RETkEucG9zdEFDVCA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLnBvc3RBQ1QsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNpcmNfZGF0YSRTdGFnZSA8LSBmYWN0b3IoY2lyY19kYXRhJFN0YWdlLCBsZXZlbHM9YygiSSIsIklJIiwiSUlJIikpCmNpcmNfZGF0YSA8LSBzdWJzZXQoY2lyY19kYXRhLCBjdEROQS5wb3N0QUNUICVpbiUgYygiTkVHQVRJVkUiLCAiUE9TSVRJVkUiKSkKcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlIDwtIGFnZ3JlZ2F0ZShjaXJjX2RhdGEkY3RETkEucG9zdEFDVCA9PSAiUE9TSVRJVkUiLCBieT1saXN0KGNpcmNfZGF0YSRTdGFnZSksIEZVTj1zdW0pCnRvdGFsX2NvdW50c19ieV9zdGFnZSA8LSBhZ2dyZWdhdGUoY2lyY19kYXRhJGN0RE5BLnBvc3RBQ1QsIGJ5PWxpc3QoY2lyY19kYXRhJFN0YWdlKSwgRlVOPWxlbmd0aCkKY29tYmluZWRfZGF0YSA8LSBkYXRhLmZyYW1lKAogIFN0YWdlID0gdG90YWxfY291bnRzX2J5X3N0YWdlJEdyb3VwLjEsCiAgVG90YWxfQ291bnQgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCwKICBQb3NpdGl2ZV9Db3VudCA9IHBvc2l0aXZlX2NvdW50c19ieV9zdGFnZSR4LAogIFJhdGUgPSAocG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHggLyB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkeCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCikKY29tYmluZWRfZGF0YSRSYXRlIDwtIHNwcmludGYoIiUuMmYlJSIsIGNvbWJpbmVkX2RhdGEkUmF0ZSkKb3ZlcmFsbF90b3RhbF9jb3VudCA8LSBucm93KGNpcmNfZGF0YSkKb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCA8LSBucm93KGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEucG9zdEFDVCA9PSAiUE9TSVRJVkUiLF0pCm92ZXJhbGxfcG9zaXRpdml0eV9yYXRlIDwtIChvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IC8gb3ZlcmFsbF90b3RhbF9jb3VudCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCm92ZXJhbGxfcm93IDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSAiT3ZlcmFsbCIsCiAgVG90YWxfQ291bnQgPSBvdmVyYWxsX3RvdGFsX2NvdW50LAogIFBvc2l0aXZlX0NvdW50ID0gb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCwKICBSYXRlID0gc3ByaW50ZigiJS4yZiUlIiwgb3ZlcmFsbF9wb3NpdGl2aXR5X3JhdGUpCikKY29tYmluZWRfZGF0YSA8LSByYmluZChjb21iaW5lZF9kYXRhLCBvdmVyYWxsX3JvdykKcHJpbnQoY29tYmluZWRfZGF0YSkKCiNQb3N0LXJlbGFwc2UgV2luZG93CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEkY3RETkEucG9zdFJlbGFwc2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5wb3N0UmVsYXBzZSwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY2lyY19kYXRhJFN0YWdlIDwtIGZhY3RvcihjaXJjX2RhdGEkU3RhZ2UsIGxldmVscz1jKCJJIiwiSUkiLCJJSUkiKSkKY2lyY19kYXRhIDwtIHN1YnNldChjaXJjX2RhdGEsIGN0RE5BLnBvc3RSZWxhcHNlICVpbiUgYygiTkVHQVRJVkUiLCAiUE9TSVRJVkUiKSkKcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlIDwtIGFnZ3JlZ2F0ZShjaXJjX2RhdGEkY3RETkEucG9zdFJlbGFwc2UgPT0gIlBPU0lUSVZFIiwgYnk9bGlzdChjaXJjX2RhdGEkU3RhZ2UpLCBGVU49c3VtKQp0b3RhbF9jb3VudHNfYnlfc3RhZ2UgPC0gYWdncmVnYXRlKGNpcmNfZGF0YSRjdEROQS5wb3N0UmVsYXBzZSwgYnk9bGlzdChjaXJjX2RhdGEkU3RhZ2UpLCBGVU49bGVuZ3RoKQpjb21iaW5lZF9kYXRhIDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSB0b3RhbF9jb3VudHNfYnlfc3RhZ2UkR3JvdXAuMSwKICBUb3RhbF9Db3VudCA9IHRvdGFsX2NvdW50c19ieV9zdGFnZSR4LAogIFBvc2l0aXZlX0NvdW50ID0gcG9zaXRpdmVfY291bnRzX2J5X3N0YWdlJHgsCiAgUmF0ZSA9IChwb3NpdGl2ZV9jb3VudHNfYnlfc3RhZ2UkeCAvIHRvdGFsX2NvdW50c19ieV9zdGFnZSR4KSAqIDEwMCAgIyBDb252ZXJ0IHRvIHBlcmNlbnRhZ2UKKQpjb21iaW5lZF9kYXRhJFJhdGUgPC0gc3ByaW50ZigiJS4yZiUlIiwgY29tYmluZWRfZGF0YSRSYXRlKQpvdmVyYWxsX3RvdGFsX2NvdW50IDwtIG5yb3coY2lyY19kYXRhKQpvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IDwtIG5yb3coY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5wb3N0UmVsYXBzZSA9PSAiUE9TSVRJVkUiLF0pCm92ZXJhbGxfcG9zaXRpdml0eV9yYXRlIDwtIChvdmVyYWxsX3Bvc2l0aXZlX2NvdW50IC8gb3ZlcmFsbF90b3RhbF9jb3VudCkgKiAxMDAgICMgQ29udmVydCB0byBwZXJjZW50YWdlCm92ZXJhbGxfcm93IDwtIGRhdGEuZnJhbWUoCiAgU3RhZ2UgPSAiT3ZlcmFsbCIsCiAgVG90YWxfQ291bnQgPSBvdmVyYWxsX3RvdGFsX2NvdW50LAogIFBvc2l0aXZlX0NvdW50ID0gb3ZlcmFsbF9wb3NpdGl2ZV9jb3VudCwKICBSYXRlID0gc3ByaW50ZigiJS4yZiUlIiwgb3ZlcmFsbF9wb3NpdGl2aXR5X3JhdGUpCikKY29tYmluZWRfZGF0YSA8LSByYmluZChjb21iaW5lZF9kYXRhLCBvdmVyYWxsX3JvdykKcHJpbnQoY29tYmluZWRfZGF0YSkKYGBgCgoKCgojTmVvYWRqdXZhbnQgVHJlYXRtZW50IGR1cmF0aW9uCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkID09IFRSVUUsIF0KCmNpcmNfZGF0YSROQUMuU3RhcnQgPC0gYXMuRGF0ZShjaXJjX2RhdGEkTkFDLlN0YXJ0LCBmb3JtYXQ9IiVtLyVkLyVZIikKY2lyY19kYXRhJE5BQy5FbmQgPC0gYXMuRGF0ZShjaXJjX2RhdGEkTkFDLkVuZCwgZm9ybWF0PSIlbS8lZC8lWSIpCmNpcmNfZGF0YSROQUMuRHVyYXRpb24gPC0gYXMubnVtZXJpYyhkaWZmdGltZShjaXJjX2RhdGEkTkFDLkVuZCwgY2lyY19kYXRhJE5BQy5TdGFydCwgdW5pdHM9ImRheXMiKSkKbWVkaWFuX2R1cmF0aW9uIDwtIG1lZGlhbihjaXJjX2RhdGEkTkFDLkR1cmF0aW9uLCBuYS5ybT1UUlVFKQpyYW5nZV9kdXJhdGlvbiA8LSByYW5nZShjaXJjX2RhdGEkTkFDLkR1cmF0aW9uLCBuYS5ybT1UUlVFKQpRMSA8LSBxdWFudGlsZShjaXJjX2RhdGEkTkFDLkR1cmF0aW9uLCAwLjI1LCBuYS5ybT1UUlVFKQpRMyA8LSBxdWFudGlsZShjaXJjX2RhdGEkTkFDLkR1cmF0aW9uLCAwLjc1LCBuYS5ybT1UUlVFKQpJUVJfdmFsdWUgPC0gSVFSKGNpcmNfZGF0YSROQUMuRHVyYXRpb24sIG5hLnJtPVRSVUUpCmNhdCgiTWVkaWFuIE5BQyBEdXJhdGlvbjoiLCBtZWRpYW5fZHVyYXRpb24sICJkYXlzXG4iKQpjYXQoIlJhbmdlIG9mIE5BQyBEdXJhdGlvbjoiLCByYW5nZV9kdXJhdGlvblsxXSwgIi0iLCByYW5nZV9kdXJhdGlvblsyXSwgImRheXNcbiIpCmNhdCgiUTEgKDI1dGggcGVyY2VudGlsZSk6IiwgUTEsICJkYXlzXG4iKQpjYXQoIlEzICg3NXRoIHBlcmNlbnRpbGUpOiIsIFEzLCAiZGF5c1xuIikKY2F0KCJJbnRlcnF1YXJ0aWxlIFJhbmdlIChJUVIpOiIsIElRUl92YWx1ZSwgImRheXNcbiIpCmBgYAoKI1RpbWUgb2YgY3RETkEgZHJhd3MgZnJvbSBzdGFydCBhbmQgZW5kIG9mIG5lb2RqdXZhbnQgdHJlYXRtZW50CmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkID09IFRSVUUsIF0KCmNpcmNfZGF0YSROQUMuU3RhcnQgPC0gYXMuRGF0ZShjaXJjX2RhdGEkTkFDLlN0YXJ0LCBmb3JtYXQ9IiVtLyVkLyVZIikKY2lyY19kYXRhJE5BQy5FbmQgPC0gYXMuRGF0ZShjaXJjX2RhdGEkTkFDLkVuZCwgZm9ybWF0PSIlbS8lZC8lWSIpCmNpcmNfZGF0YSRjdEROQS5DMkQxLkRhdGUgPC0gYXMuRGF0ZShjaXJjX2RhdGEkY3RETkEuQzJEMS5EYXRlLCBmb3JtYXQ9IiVtLyVkLyVZIikKY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMuRGF0ZSA8LSBhcy5EYXRlKGNpcmNfZGF0YSRjdEROQS5wb3N0TkFDLkRhdGUsIGZvcm1hdD0iJW0vJWQvJVkiKQoKY2lyY19kYXRhJFRpbWVfdG9fY3RETkFfQzJEMSA8LSBhcy5udW1lcmljKGRpZmZ0aW1lKGNpcmNfZGF0YSRjdEROQS5DMkQxLkRhdGUsIGNpcmNfZGF0YSROQUMuU3RhcnQsIHVuaXRzPSJkYXlzIikpCmNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX3Bvc3ROQUMgPC0gYXMubnVtZXJpYyhkaWZmdGltZShjaXJjX2RhdGEkY3RETkEucG9zdE5BQy5EYXRlLCBjaXJjX2RhdGEkTkFDLkVuZCwgdW5pdHM9ImRheXMiKSkKCm1lZGlhbl9jdEROQV9DMkQxIDwtIG1lZGlhbihjaXJjX2RhdGEkVGltZV90b19jdEROQV9DMkQxLCBuYS5ybT1UUlVFKQpyYW5nZV9jdEROQV9DMkQxIDwtIHJhbmdlKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX0MyRDEsIG5hLnJtPVRSVUUpClExX2N0RE5BX0MyRDEgPC0gcXVhbnRpbGUoY2lyY19kYXRhJFRpbWVfdG9fY3RETkFfQzJEMSwgMC4yNSwgbmEucm09VFJVRSkKUTNfY3RETkFfQzJEMSA8LSBxdWFudGlsZShjaXJjX2RhdGEkVGltZV90b19jdEROQV9DMkQxLCAwLjc1LCBuYS5ybT1UUlVFKQpJUVJfY3RETkFfQzJEMSA8LSBJUVIoY2lyY19kYXRhJFRpbWVfdG9fY3RETkFfQzJEMSwgbmEucm09VFJVRSkKbWVkaWFuX2N0RE5BX3Bvc3ROQUMgPC0gbWVkaWFuKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX3Bvc3ROQUMsIG5hLnJtPVRSVUUpCnJhbmdlX2N0RE5BX3Bvc3ROQUMgPC0gcmFuZ2UoY2lyY19kYXRhJFRpbWVfdG9fY3RETkFfcG9zdE5BQywgbmEucm09VFJVRSkKUTFfY3RETkFfcG9zdE5BQyA8LSBxdWFudGlsZShjaXJjX2RhdGEkVGltZV90b19jdEROQV9wb3N0TkFDLCAwLjI1LCBuYS5ybT1UUlVFKQpRM19jdEROQV9wb3N0TkFDIDwtIHF1YW50aWxlKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX3Bvc3ROQUMsIDAuNzUsIG5hLnJtPVRSVUUpCklRUl9jdEROQV9wb3N0TkFDIDwtIElRUihjaXJjX2RhdGEkVGltZV90b19jdEROQV9wb3N0TkFDLCBuYS5ybT1UUlVFKQpjYXQoIk1lZGlhbiB0aW1lIGZyb20gTkFDIHN0YXJ0IHRvIGN0RE5BIGRyYXcgZHVyaW5nIE5BQzoiLCBtZWRpYW5fY3RETkFfQzJEMSwgImRheXNcbiIpCmNhdCgiUmFuZ2U6IiwgcmFuZ2VfY3RETkFfQzJEMVsxXSwgIi0iLCByYW5nZV9jdEROQV9DMkQxWzJdLCAiZGF5c1xuIikKY2F0KCJRMSAoMjV0aCBwZXJjZW50aWxlKToiLCBRMV9jdEROQV9DMkQxLCAiZGF5c1xuIikKY2F0KCJRMyAoNzV0aCBwZXJjZW50aWxlKToiLCBRM19jdEROQV9DMkQxLCAiZGF5c1xuIikKY2F0KCJJbnRlcnF1YXJ0aWxlIFJhbmdlIChJUVIpOiIsIElRUl9jdEROQV9DMkQxLCAiZGF5c1xuXG4iKQoKY2F0KCJNZWRpYW4gdGltZSBmcm9tIE5BQyBlbmQgdG8gY3RETkEgZHJhdyBwb3N0LU5BQzoiLCBtZWRpYW5fY3RETkFfcG9zdE5BQywgImRheXNcbiIpCmNhdCgiUmFuZ2U6IiwgcmFuZ2VfY3RETkFfcG9zdE5BQ1sxXSwgIi0iLCByYW5nZV9jdEROQV9wb3N0TkFDWzJdLCAiZGF5c1xuIikKY2F0KCJRMSAoMjV0aCBwZXJjZW50aWxlKToiLCBRMV9jdEROQV9wb3N0TkFDLCAiZGF5c1xuIikKY2F0KCJRMyAoNzV0aCBwZXJjZW50aWxlKToiLCBRM19jdEROQV9wb3N0TkFDLCAiZGF5c1xuIikKY2F0KCJJbnRlcnF1YXJ0aWxlIFJhbmdlIChJUVIpOiIsIElRUl9jdEROQV9wb3N0TkFDLCAiZGF5c1xuIikKYGBgCgojRGVtb2dyYXBoaWNzIFRhYmxlCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KCmNpcmNfZGF0YV9zdWJzZXQgPC0gY2lyY19kYXRhICU+JQogIHNlbGVjdCgKICAgIEFnZSwKICAgIEdlbmRlciwKICAgIFByaW1TaXRlLAogICAgTkFDLAogICAgTkFDLlJlZ2ltZW4sCiAgICBUUkcuTWFuZGFyZCwKICAgIFROTSwKICAgIFN0YWdlLAogICAgR3JhZGUsCiAgICBMYXVyZW4uQ2xhc3MsCiAgICBNYXJnaW5zLAogICAgQUNULAogICAgQUNULlJlZ2ltZW4sCiAgICBERlMuRXZlbnQsCiAgICBPUy5FdmVudCwKICAgIEZVLm1vbnRocykgJT4lCiAgbXV0YXRlKAogICAgQWdlID0gYXMubnVtZXJpYyhBZ2UpLAogICAgR2VuZGVyID0gZmFjdG9yKEdlbmRlciwgbGV2ZWxzID0gYygiTWFsZSIsICJGZW1hbGUiKSksCiAgICBQcmltU2l0ZSA9IGZhY3RvcihQcmltU2l0ZSwgbGV2ZWxzID0gYygiU3RvbWFjaCIsICJHL0oiLCAiT2Vzb3BoYWd1cyIpKSwKICAgIE5BQyA9IGZhY3RvcihOQUMsIGxldmVscyA9IGMoIlRSVUUiLCAiRkFMU0UiKSwgbGFiZWxzID0gYygiTmVvYWRqdXZhbnQgVGhlcmFweSIsICJVcGZyb250IFN1cmdlcnkiKSksCiAgICBOQUMuUmVnaW1lbiA9IGZhY3RvcihOQUMuUmVnaW1lbiksCiAgICBUUkcuTWFuZGFyZCA9IGZhY3RvcihUUkcuTWFuZGFyZCwgbGV2ZWxzID0gYygiVFJHMSIsIlRSRzIiLCAiVFJHMyIsICJUUkc0IiwgIlRSRzUiKSksCiAgICBUTk0gPSBmYWN0b3IoVE5NLCBsZXZlbHMgPSBjKCJUMC1UaXNOME0wIiwiVDEtVDJOMCIsICJUMi1UM04wLU4xIiwgIlQyTjEtTjIiLCAiVDNOMi1OMyIsICJUNE4wLU4xIiwgIlQ0TjItTjMiKSksCiAgICBTdGFnZSA9IGZhY3RvcihTdGFnZSwgbGV2ZWxzID0gYygiMCIsIkkiLCJJSSIsICJJSUkiKSksCiAgICBHcmFkZSA9IGZhY3RvcihHcmFkZSwgbGV2ZWxzID0gYygiRzEiLCAiRzIiLCAiRzMiKSksCiAgICBMYXVyZW4uQ2xhc3MgPSBmYWN0b3IoTGF1cmVuLkNsYXNzKSwKICAgIE1hcmdpbnMgPSBmYWN0b3IoTWFyZ2lucywgbGV2ZWxzID0gYygiUjAiLCAiUjEiKSksCiAgICBBQ1QgPSBmYWN0b3IoQUNULCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIkFkanV2YW50IFRyZWF0bWVudCIsICJPYnNlcnZhdGlvbiIpKSwKICAgIEFDVC5SZWdpbWVuID0gZmFjdG9yKEFDVC5SZWdpbWVuKSwKICAgIERGUy5FdmVudCA9IGZhY3RvcihERlMuRXZlbnQsIGxldmVscyA9IGMoIlRSVUUiLCAiRkFMU0UiKSwgbGFiZWxzID0gYygiUmVjdXJyZW5jZSIsICJObyBSZWN1cnJlbmNlIikpLAogICAgT1MuRXZlbnQgPSBmYWN0b3IoT1MuRXZlbnQsIGxldmVscyA9IGMoIlRSVUUiLCAiRkFMU0UiKSwgbGFiZWxzID0gYygiRGVjZWFzZWQiLCAiQWxpdmUiKSksCiAgICBGVS5tb250aHMgPSBhcy5udW1lcmljKEZVLm1vbnRocykpCnRhYmxlMSA8LSBjaXJjX2RhdGFfc3Vic2V0ICU+JQogIHRibF9zdW1tYXJ5KAogICAgc3RhdGlzdGljID0gbGlzdCgKICAgICAgYWxsX2NvbnRpbnVvdXMoKSB+ICJ7bWVkaWFufSAoe21pbn0gLSB7bWF4fSkiLAogICAgICBhbGxfY2F0ZWdvcmljYWwoKSB+ICJ7bn0gKHtwfSUpIikpICU+JQogIGJvbGRfbGFiZWxzKCkKdGFibGUxCmZpdDEgPC0gYXNfZmxleF90YWJsZSgKICB0YWJsZTEsCiAgaW5jbHVkZSA9IGV2ZXJ5dGhpbmcoKSwKICByZXR1cm5fY2FsbHMgPSBGQUxTRQopCmZpdDEKc2F2ZV9hc19kb2N4KGZpdDEsIHBhdGg9ICJ+L0Rvd25sb2Fkcy90YWJsZTEuZG9jeCIpCmBgYAoKCiNEZW1vZ3JhcGhpY3MgVGFibGUgZm9yIHRob3NlIHRoYXQgaW5jbHVkZWQgdnMgZXhjbHVkZWQgZnJvbSB0aGUgc3R1ZHkKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKCmNpcmNfZGF0YV9zdWJzZXQxIDwtIGNpcmNfZGF0YSAlPiUKICBzZWxlY3QoCiAgICBBZ2UsCiAgICBHZW5kZXIsCiAgICBQcmltU2l0ZSwKICAgIE5BQywKICAgIE5BQy5SZWdpbWVuLAogICAgVFJHLk1hbmRhcmQsCiAgICBUTk0sCiAgICBTdGFnZSwKICAgIEdyYWRlLAogICAgTGF1cmVuLkNsYXNzLAogICAgTWFyZ2lucywKICAgIEFDVCwKICAgIEFDVC5SZWdpbWVuLAogICAgREZTLkV2ZW50LAogICAgT1MuRXZlbnQsCiAgICBGVS5tb250aHMpICU+JQogIG11dGF0ZSgKICAgIEFnZSA9IGFzLm51bWVyaWMoQWdlKSwKICAgIEdlbmRlciA9IGZhY3RvcihHZW5kZXIsIGxldmVscyA9IGMoIk1hbGUiLCAiRmVtYWxlIikpLAogICAgUHJpbVNpdGUgPSBmYWN0b3IoUHJpbVNpdGUsIGxldmVscyA9IGMoIlN0b21hY2giLCAiRy9KIiwgIk9lc29waGFndXMiKSksCiAgICBOQUMgPSBmYWN0b3IoTkFDLCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIk5lb2FkanV2YW50IFRoZXJhcHkiLCAiVXBmcm9udCBTdXJnZXJ5IikpLAogICAgTkFDLlJlZ2ltZW4gPSBmYWN0b3IoTkFDLlJlZ2ltZW4pLAogICAgVFJHLk1hbmRhcmQgPSBmYWN0b3IoVFJHLk1hbmRhcmQsIGxldmVscyA9IGMoIlRSRzEiLCJUUkcyIiwgIlRSRzMiLCAiVFJHNCIsICJUUkc1IikpLAogICAgVE5NID0gZmFjdG9yKFROTSwgbGV2ZWxzID0gYygiVDAtVGlzTjBNMCIsIlQxLVQyTjAiLCAiVDItVDNOMC1OMSIsICJUMk4xLU4yIiwgIlQzTjItTjMiLCAiVDROMC1OMSIsICJUNE4yLU4zIikpLAogICAgU3RhZ2UgPSBmYWN0b3IoU3RhZ2UsIGxldmVscyA9IGMoIjAiLCJJIiwiSUkiLCAiSUlJIikpLAogICAgR3JhZGUgPSBmYWN0b3IoR3JhZGUsIGxldmVscyA9IGMoIkcxIiwgIkcyIiwgIkczIikpLAogICAgTGF1cmVuLkNsYXNzID0gZmFjdG9yKExhdXJlbi5DbGFzcyksCiAgICBNYXJnaW5zID0gZmFjdG9yKE1hcmdpbnMsIGxldmVscyA9IGMoIlIwIiwgIlIxIikpLAogICAgQUNUID0gZmFjdG9yKEFDVCwgbGV2ZWxzID0gYygiVFJVRSIsICJGQUxTRSIpLCBsYWJlbHMgPSBjKCJBZGp1dmFudCBUcmVhdG1lbnQiLCAiT2JzZXJ2YXRpb24iKSksCiAgICBBQ1QuUmVnaW1lbiA9IGZhY3RvcihBQ1QuUmVnaW1lbiksCiAgICBERlMuRXZlbnQgPSBmYWN0b3IoREZTLkV2ZW50LCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIlJlY3VycmVuY2UiLCAiTm8gUmVjdXJyZW5jZSIpKSwKICAgIE9TLkV2ZW50ID0gZmFjdG9yKE9TLkV2ZW50LCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIkRlY2Vhc2VkIiwgIkFsaXZlIikpLAogICAgRlUubW9udGhzID0gYXMubnVtZXJpYyhGVS5tb250aHMpKQoKY2lyY19kYXRhMSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCgpjaXJjX2RhdGFfc3Vic2V0MiA8LSBjaXJjX2RhdGEgJT4lCiAgc2VsZWN0KAogICAgQWdlLAogICAgR2VuZGVyLAogICAgUHJpbVNpdGUsCiAgICBOQUMsCiAgICBOQUMuUmVnaW1lbiwKICAgIFRSRy5NYW5kYXJkLAogICAgVE5NLAogICAgU3RhZ2UsCiAgICBHcmFkZSwKICAgIExhdXJlbi5DbGFzcywKICAgIE1hcmdpbnMsCiAgICBBQ1QsCiAgICBBQ1QuUmVnaW1lbiwKICAgIERGUy5FdmVudCwKICAgIE9TLkV2ZW50LAogICAgRlUubW9udGhzLAogICAgSW5jbHVkZWQpICU+JQogIG11dGF0ZSgKICAgIEFnZSA9IGFzLm51bWVyaWMoQWdlKSwKICAgIEdlbmRlciA9IGZhY3RvcihHZW5kZXIsIGxldmVscyA9IGMoIk1hbGUiLCAiRmVtYWxlIikpLAogICAgUHJpbVNpdGUgPSBmYWN0b3IoUHJpbVNpdGUsIGxldmVscyA9IGMoIlN0b21hY2giLCAiRy9KIiwgIk9lc29waGFndXMiKSksCiAgICBOQUMgPSBmYWN0b3IoTkFDLCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIk5lb2FkanV2YW50IFRoZXJhcHkiLCAiVXBmcm9udCBTdXJnZXJ5IikpLAogICAgTkFDLlJlZ2ltZW4gPSBmYWN0b3IoTkFDLlJlZ2ltZW4pLAogICAgVFJHLk1hbmRhcmQgPSBmYWN0b3IoVFJHLk1hbmRhcmQsIGxldmVscyA9IGMoIlRSRzEiLCJUUkcyIiwgIlRSRzMiLCAiVFJHNCIsICJUUkc1IikpLAogICAgVE5NID0gZmFjdG9yKFROTSwgbGV2ZWxzID0gYygiVDAtVGlzTjBNMCIsIlQxLVQyTjAiLCAiVDItVDNOMC1OMSIsICJUMk4xLU4yIiwgIlQzTjItTjMiLCAiVDROMC1OMSIsICJUNE4yLU4zIikpLAogICAgU3RhZ2UgPSBmYWN0b3IoU3RhZ2UsIGxldmVscyA9IGMoIjAiLCJJIiwiSUkiLCAiSUlJIikpLAogICAgR3JhZGUgPSBmYWN0b3IoR3JhZGUsIGxldmVscyA9IGMoIkcxIiwgIkcyIiwgIkczIikpLAogICAgTGF1cmVuLkNsYXNzID0gZmFjdG9yKExhdXJlbi5DbGFzcyksCiAgICBNYXJnaW5zID0gZmFjdG9yKE1hcmdpbnMsIGxldmVscyA9IGMoIlIwIiwgIlIxIikpLAogICAgQUNUID0gZmFjdG9yKEFDVCwgbGV2ZWxzID0gYygiVFJVRSIsICJGQUxTRSIpLCBsYWJlbHMgPSBjKCJBZGp1dmFudCBUcmVhdG1lbnQiLCAiT2JzZXJ2YXRpb24iKSksCiAgICBBQ1QuUmVnaW1lbiA9IGZhY3RvcihBQ1QuUmVnaW1lbiksCiAgICBERlMuRXZlbnQgPSBmYWN0b3IoREZTLkV2ZW50LCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIlJlY3VycmVuY2UiLCAiTm8gUmVjdXJyZW5jZSIpKSwKICAgIE9TLkV2ZW50ID0gZmFjdG9yKE9TLkV2ZW50LCBsZXZlbHMgPSBjKCJUUlVFIiwgIkZBTFNFIiksIGxhYmVscyA9IGMoIkRlY2Vhc2VkIiwgIkFsaXZlIikpLAogICAgRlUubW9udGhzID0gYXMubnVtZXJpYyhGVS5tb250aHMpLAogICAgSW5jbHVkZWQgPSBmYWN0b3IoSW5jbHVkZWQsIGxldmVscyA9IGMoIlRSVUUiLCAiRkFMU0UiKSwgbGFiZWxzID0gYygiSW5jbHVkZWQiLCAiRXhjbHVkZWQiKSkpCk92ZXJhbGwgPC0gY2lyY19kYXRhX3N1YnNldDEgJT4lCiAgdGJsX3N1bW1hcnkoCiAgICBzdGF0aXN0aWMgPSBsaXN0KAogICAgICBhbGxfY29udGludW91cygpIH4gInttZWRpYW59ICh7bWlufSAtIHttYXh9KSIsCiAgICAgIGFsbF9jYXRlZ29yaWNhbCgpIH4gIntufSAoe3B9JSkiKSkgJT4lCiAgYm9sZF9sYWJlbHMoKQpPdmVyYWxsCgpCeWN0RE5BX01SRCA8LSBjaXJjX2RhdGFfc3Vic2V0MiAlPiUKICB0Ymxfc3VtbWFyeSgKICAgIGJ5ID0gSW5jbHVkZWQsICMgU3ViZ3JvdXAgYnkgSW5jbHVkZWQKICAgIHN0YXRpc3RpYyA9IGxpc3QoCiAgICAgIGFsbF9jb250aW51b3VzKCkgfiAie21lZGlhbn0gKHttaW59IC0ge21heH0pIiwKICAgICAgYWxsX2NhdGVnb3JpY2FsKCkgfiAie259ICh7cH0lKSIpKSAlPiUKICBhZGRfcCh0ZXN0ID0gYWxsX2NhdGVnb3JpY2FsKCkgfiAiZmlzaGVyLnRlc3QiLCBwdmFsdWVfZnVuID0gfnN0eWxlX3B2YWx1ZShwLmFkanVzdCgueCwgbWV0aG9kID0gImJvbmZlcnJvbmkiKSkpICU+JQogIGJvbGRfbGFiZWxzKCkKQnljdEROQV9NUkQKCm1lcmdlZF90YWJsZSA8LSB0YmxfbWVyZ2UodGJscz1saXN0KE92ZXJhbGwsIEJ5Y3RETkFfTVJEKSkKbWVyZ2VkX3RhYmxlCgpmaXQxIDwtIGFzX2ZsZXhfdGFibGUoCiAgbWVyZ2VkX3RhYmxlLAogIGluY2x1ZGUgPSBldmVyeXRoaW5nKCksCiAgcmV0dXJuX2NhbGxzID0gRkFMU0UpCmZpdDEKc2F2ZV9hc19kb2N4KGZpdDEsIHBhdGg9ICJ+L0Rvd25sb2Fkcy9tZXJnZWRfdGFibGUuZG9jeCIpCmBgYAoKI1JGUyBieSBpbmNsdXNpb24gc3RhdHVzCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfkluY2x1ZGVkLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBJbmNsdWRlZCwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTYsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iUkZTIC0gSW5jbHVzaW9uIHN0YXR1cyIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJNb250aHMgZnJvbSBzdXJnZXJ5IiwgbGVnZW5kLmxhYnM9YygiSW5jbHVkZWQiLCAiRXhjbHVkZWQiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygyNCkpCmNpcmNfZGF0YSRJbmNsdWRlZCA8LSBmYWN0b3IoY2lyY19kYXRhJEluY2x1ZGVkLCBsZXZlbHM9YygiVFJVRSIsIkZBTFNFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBJbmNsdWRlZCwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgojT1MgYnkgaW5jbHVzaW9uIHN0YXR1cwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCl+SW5jbHVkZWQsIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBJbmNsdWRlZCwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTYsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iT1MgLSBJbmNsdXNpb24gc3RhdHVzIiwgeWxhYj0gIk92ZXJhbGwgU3Vydml2YWwiLCB4bGFiPSJNb250aHMgZnJvbSBzdXJnZXJ5IiwgbGVnZW5kLmxhYnM9YygiSW5jbHVkZWQiLCAiRXhjbHVkZWQiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygyNCkpCmNpcmNfZGF0YSRJbmNsdWRlZCA8LSBmYWN0b3IoY2lyY19kYXRhJEluY2x1ZGVkLCBsZXZlbHM9YygiVFJVRSIsIkZBTFNFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBJbmNsdWRlZCwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgojSGVhdG1hcCB3aXRoIENsaW5pY2FsICYgR2Vub21pY3MgRmFjdG9ycwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lIGFycmFuZ2UoU3RhZ2UpCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKaGEgPC0gSGVhdG1hcEFubm90YXRpb24oCiAgU3RhZ2UgPSBjaXJjX2RhdGEkU3RhZ2UsCiAgR2VuZGVyID0gY2lyY19kYXRhJEdlbmRlciwKICBQcmltU2l0ZSA9IGNpcmNfZGF0YSRQcmltU2l0ZSwKICBOQUMgPSBjaXJjX2RhdGEkTkFDLAogIEFDVCA9IGNpcmNfZGF0YSRBQ1QsCiAgY3RETkEuQmFzZSA9IGNpcmNfZGF0YSRjdEROQS5CYXNlLAogIGN0RE5BLkMyRDEgPSBjaXJjX2RhdGEkY3RETkEuQzJEMSwKICBjdEROQS5wb3N0TkFDID0gY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMsCiAgY3RETkEuTVJEID0gY2lyY19kYXRhJGN0RE5BLk1SRCwKICBjdEROQS5zdXJ2ZWlsbGFuY2UgPSBjaXJjX2RhdGEkY3RETkEuc3VydmVpbGxhbmNlLAogIERGUy5FdmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQsCiAgT1MuRXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQsCiAgCiAgY29sID0gbGlzdChTdGFnZSA9IGMoIjAiID0gInNlYWdyZWVuMSIsICJJIiA9ICJzZWFncmVlbjEiLCAiSUkiID0gIm9yYW5nZSIsICJJSUkiID0gInB1cnBsZSIpLAogICAgR2VuZGVyID0gYygiRmVtYWxlIiA9ICJnb2xkZW5yb2QiICwgIk1hbGUiID0gImJsdWU0IiksCiAgICBQcmltU2l0ZSA9IGMoIlN0b21hY2giID0gImJyb3duIiwgIkcvSiIgPSAiZGFya2dyZWVuIiwgIk9lc29waGFndXMiID0gIm9yYW5nZTQiKSwKICAgIE5BQyA9IGMoIkZBTFNFIiA9ICJjb3JuZmxvd2VyYmx1ZSIsICJUUlVFIiA9ImRhcmttYWdlbnRhIiksCiAgICBBQ1QgPSBjKCJUUlVFIiA9ICJicm93bjQiLCAiRkFMU0UiID0ia2hha2kiKSwKICAgIGN0RE5BLkJhc2UgPSBjKCJQT1NJVElWRSIgPSAicmVkMyIsICJORUdBVElWRSIgPSJibHVlIiksCiAgICBjdEROQS5DMkQxID0gYygiUE9TSVRJVkUiID0gInJlZDMiLCAiTkVHQVRJVkUiID0iYmx1ZSIpLAogICAgY3RETkEucG9zdE5BQyA9IGMoIlBPU0lUSVZFIiA9ICJyZWQzIiwgIk5FR0FUSVZFIiA9ImJsdWUiKSwKICAgIGN0RE5BLk1SRCA9IGMoIlBPU0lUSVZFIiA9ICJyZWQzIiwgIk5FR0FUSVZFIiA9ImJsdWUiKSwKICAgIGN0RE5BLnN1cnZlaWxsYW5jZSA9IGMoIlBPU0lUSVZFIiA9ICJyZWQzIiwgIk5FR0FUSVZFIiA9ImJsdWUiKSwKICAgIERGUy5FdmVudCA9IGMoIlRSVUUiID0gInJlZDMiLCAiRkFMU0UiID0iYmx1ZSIpLAogICAgT1MuRXZlbnQgPSBjKCJUUlVFIiA9ICJibGFjayIsICJGQUxTRSIgPSJncmF5IikKKQopCmh0IDwtIEhlYXRtYXAobWF0cml4KG5yb3cgPSAwLCBuY29sID0gbGVuZ3RoKGNpcmNfZGF0YSRTdGFnZSkpLHNob3dfcm93X25hbWVzID0gRkFMU0UsY2x1c3Rlcl9yb3dzID0gRixjbHVzdGVyX2NvbHVtbnMgPSBGQUxTRSwgdG9wX2Fubm90YXRpb24gPSBoYSkKcGRmKCJoZWF0bWFwLnBkZiIsd2lkdGggPSA3LCBoZWlnaHQgPSA3KQpkcmF3KGh0LCBhbm5vdGF0aW9uX2xlZ2VuZF9zaWRlID0gImJvdHRvbSIpCmRldi5vZmYoKQpgYGAKCgojT3ZlcnZpZXcgUGxvdApgYGB7cn0Kc2V0d2QoIn4vRG93bmxvYWRzIikgCmNsaW5zdGFnZTwtIHJlYWQuY3N2KCJQTEFHQVNUX09QLmNzdiIpCmNsaW5zdGFnZV9kZjwtIGFzLmRhdGEuZnJhbWUoY2xpbnN0YWdlKQoKI0Rpc3BsYXkgdGhlIHN3aW1tZXIgcGxvdCB3aXRoIHRoZSBsYWJlbCBib3gKb3Bsb3Q8LXN3aW1tZXJfcGxvdChkZj1jbGluc3RhZ2VfZGYsCiAgICAgICAgICAgICAgICAgICAgaWQ9J1BhdGllbnROYW1lJywKICAgICAgICAgICAgICAgICAgICBlbmQ9J2Z1LmRpZmYubW9udGhzJywKICAgICAgICAgICAgICAgICAgICBmaWxsPSdncmF5JywKICAgICAgICAgICAgICAgICAgICB3aWR0aD0uMDEsKQpvcGxvdCA8LSBvcGxvdCArIHRoZW1lKHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfYmxhbmsoKSkKb3Bsb3QgPC0gb3Bsb3QgKyBzY2FsZV95X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKC0xMiwgOTYsIGJ5ID0gNikpCm9wbG90IDwtIG9wbG90ICsgbGFicyh4ID0iUGF0aWVudHMiICwgeT0iTW9udGhzIGZyb20gU3VyZ2VyeSIpCm9wbG90CgoKIyNwbG90IGV2ZW50cwpvcGxvdF9ldjEgPC0gb3Bsb3QgKyBzd2ltbWVyX3BvaW50cyhkZl9wb2ludHM9Y2xpbnN0YWdlX2RmLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZD0nUGF0aWVudE5hbWUnLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aW1lPSdkYXRlLmRpZmYubW9udGhzJywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFtZV9zaGFwZSA9J0V2ZW50X3R5cGUnLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYW1lX2NvbCA9ICdFdmVudCcsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpemU9My41LGZpbGw9J2JsYWNrJywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI2NvbD0nZGFya2dyZWVuJwopCm9wbG90X2V2MQoKI1NoYXBlIGN1c3RvbWl6YXRpb24gdG8gRXZlbnRfdHlwZQoKb3Bsb3RfZXYxLjEgPC0gb3Bsb3RfZXYxICsgZ2dwbG90Mjo6c2NhbGVfc2hhcGVfbWFudWFsKG5hbWU9IkV2ZW50X3R5cGUiLHZhbHVlcz1jKDEsMTYsNiwxOCw0KSxicmVha3M9YygnY3RETkFfbmVnJywnY3RETkFfcG9zJywnSW1hZ2luZycsJ1N1cmdlcnknLCdEZWF0aCcpKQoKb3Bsb3RfZXYxLjEKCiNwbG90IHRyZWF0bWVudAoKb3Bsb3RfZXYyIDwtIG9wbG90X2V2MS4xICsgc3dpbW1lcl9saW5lcyhkZl9saW5lcz1jbGluc3RhZ2VfZGYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWQ9J1BhdGllbnROYW1lJywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzdGFydD0nVHhfc3RhcnQubW9udGhzJywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlbmQ9J1R4X2VuZC5tb250aHMnLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hbWVfY29sPSdUeF90eXBlJywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzaXplPTMuNSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYW1lX2FscGhhID0gMS4wKQpvcGxvdF9ldjIgPC0gb3Bsb3RfZXYyICsgZ3VpZGVzKGxpbmV0eXBlID0gZ3VpZGVfbGVnZW5kKG92ZXJyaWRlLmFlcyA9IGxpc3Qoc2l6ZSA9IDUsIGNvbG9yID0gImJsYWNrIikpKQpvcGxvdF9ldjIgIAoKCiNjb2xvdXIgY3VzdG9taXphdGlvbgpvcGxvdF9ldjIuMiA8LSBvcGxvdF9ldjIgKyBnZ3Bsb3QyOjpzY2FsZV9jb2xvcl9tYW51YWwobmFtZT0iRXZlbnQiLHZhbHVlcz1jKCAicHVycGxlIiwiYmxhY2siLCJibGFjayIsICJsaWdodGJsdWUiLCAiZ3JlZW4iLCAicmVkIiwgImJsdWUiLCJvcmFuZ2UiKSkKb3Bsb3RfZXYyLjIKYGBgCgoKI1JGUyBieSBjdEROQSBhdCBCYXNlbGluZSAtIGFsbCBzdGFnZXMKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5CYXNlIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KX5jdEROQS5CYXNlLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5CYXNlLCBkYXRhID0gY2lyY19kYXRhLGNvbmYuaW50PTAuOTUsY29uZi50eXBlPSJsb2ctbG9nIikgCmdnc3VydnBsb3QoS01fY3VydmUsIGRhdGEgPSBjaXJjX2RhdGEsIHB2YWwgPSBGQUxTRSwgY29uZi5pbnQgPSBGQUxTRSwgcmlzay50YWJsZSA9IFRSVUUsIGJyZWFrLnRpbWUuYnk9NiwgcGFsZXR0ZT1jKCJibHVlIiwicmVkIiksIHRpdGxlPSJSRlMgLSBjdEROQSBCYXNlbGluZSB8IEFsbCBwdHMiLCB5bGFiPSAiUmVjdXJyZW5jZS1GcmVlIFN1cnZpdmFsIiwgeGxhYj0iTW9udGhzIGZyb20gc3VyZ2VyeSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BIE5lZ2F0aXZlIiwgImN0RE5BIFBvc2l0aXZlIiksIGxlZ2VuZC50aXRsZT0iIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXM9IGMoMjQpKQpjaXJjX2RhdGEkY3RETkEuQmFzZSA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLkJhc2UsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5CYXNlLCBkYXRhPWNpcmNfZGF0YSkgCmdnZm9yZXN0KGNveF9maXQsZGF0YSA9IGNpcmNfZGF0YSkgCnN1bW1hcnkoY294X2ZpdCkKY294X2ZpdF9zdW1tYXJ5IDwtIHN1bW1hcnkoY294X2ZpdCkKCiMgRXh0cmFjdCB2YWx1ZXMgZm9yIEhSLCA5NSUgQ0ksIGFuZCBwLXZhbHVlCkhSIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbMl0KbG93ZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzNdCnVwcGVyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFs0XQpwX3ZhbHVlIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbNV0KbGFiZWxfdGV4dCA8LSBwYXN0ZTAoIkhSID0gIiwgcm91bmQoSFIsIDIpLCAiICgiLCByb3VuZChsb3dlcl9DSSwgMiksICItIiwgcm91bmQodXBwZXJfQ0ksIDIpLCAiKTsgcCA9ICIsIHJvdW5kKHBfdmFsdWUsIDMpKQpwcmludChsYWJlbF90ZXh0KQpgYGAKCgoKCiNPUyBieSBjdEROQSBhdCBCYXNlbGluZSAtIGFsbCBzdGFnZXMKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5CYXNlIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCl+Y3RETkEuQmFzZSwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLkJhc2UsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgQmFzZWxpbmUgfCBBbGwgcHRzIiwgeWxhYj0gIk92ZXJhbGwtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9Ik1vbnRocyBmcm9tIHN1cmdlcnkiLCBsZWdlbmQubGFicz1jKCJjdEROQSBOZWdhdGl2ZSIsICJjdEROQSBQb3NpdGl2ZSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDI0KSkKY2lyY19kYXRhJGN0RE5BLkJhc2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5CYXNlLCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuQmFzZSwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgojUkZTIGJ5IGN0RE5BIGxldmVscyBhdCBCYXNlbGluZSBiYXNlZCBvbiBBVUMgb3B0aW1hbCBNVE0vbWwgbGV2ZWwgLSBjdEROQSBCYXNlbGluZSBwb3NpdGl2ZQpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLkJhc2UhPSIiLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQmFzZT09IlBPU0lUSVZFIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKI0RGUy5FdmVudApjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NvbXBsZXRlLmNhc2VzKGNpcmNfZGF0YSRERlMuRXZlbnQsIGNpcmNfZGF0YSRjdEROQS5CYXNlLk1UTSksXQpjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0gPC0gYXMubnVtZXJpYyhjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0pClJPQyA8LSByb2MoREZTLkV2ZW50IH4gIGN0RE5BLkJhc2UuTVRNLCBkYXRhID0gY2lyY19kYXRhLCBjaSA9IFRSVUUpCnA8LWdncm9jKFJPQywKICAgICAgICAgYWVzID0gYygibGluZXR5cGUiKSwgY29sb3IgPSAiYmx1ZSIsICBzaXplID0gMSwKICAgICAgICAgbGVnYWN5LmF4ZXMgPSBUUlVFKSArCiAgZ2VvbV9hYmxpbmUoY29sb3IgPSAiZGFyayBncmV5Iiwgc2l6ZSA9IDAuNSkgKwogIHRoZW1lX2NsYXNzaWMoKSsKICB5bGFiKCJTZW5zaXRpdml0eSIpICsgdGhlbWUoYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KGNvbG9yPSJibGFjayIsIHNpemU9MTQpLCBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoY29sb3I9ImJsYWNrIiwgc2l6ZT0xNCksYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIiwgc2l6ZT0xNCksYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIixzaXplPTE0KSxsZWdlbmQudGl0bGUgID0gZWxlbWVudF9ibGFuaygpLGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9MTQpKQpwCgojQVVDCkFVQyA8LSBhdWMoUk9DKQpwcmludChBVUMpCkFVQ19jb25mIDwtIGNpLmF1YyhST0MpCnByaW50KEFVQ19jb25mKQpyZXMucm9jIDwtIHJvYyhjaXJjX2RhdGEkREZTLkV2ZW50LCBjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0pCnBsb3Qucm9jKHJlcy5yb2MsIHByaW50LmF1YyA9IFRSVUUsIHByaW50LnRocmVzID0gImJlc3QiKQoKcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLkJhc2UhPSIiLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQmFzZT09IlBPU0lUSVZFIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKIyBDcmVhdGUgYSBuZXcgdmFyaWFibGUgYmFzZWQgb24gdGhlc2UgcXVhcnRpbGVzCmNpcmNfZGF0YSRjdEROQS42bU1UTS5RIDwtIE5BICNmaXJzdCB3ZSBjcmVhdGUgdGhlIHZhcmlhYmxlIGZvciB0aGUgY3RETkEgJiBOQUMgY29tYmluYXRpb24sIGFuZCB3ZSBhc3NpZ24gdmFsdWVzCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lCiAgbXV0YXRlKGN0RE5BLjZtTVRNLlEgPSBjYXNlX3doZW4oCiAgICBjdEROQS5CYXNlLk1UTSA8IDEuMDg1IH4gMSwKICAgIGN0RE5BLkJhc2UuTVRNID49IDEuMDg1IH4gMgogICkpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLjZtTVRNLlEsIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLjZtTVRNLlEsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT0xMiwgcGFsZXR0ZT1jKCJibHVlIiwicmVkIiksIHRpdGxlPSJSRlMgLSBjdEROQSBNVE0vbUwgZ3JvdXBzIGF0IEJhc2VsaW5lIiwgeWxhYj0gIlJlY3VycmVuY2UtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9Ik1vbnRocyBmcm9tIHN1cmdlcnkiLCBsZWdlbmQubGFicz1jKCJNVE0vbUw8MS4wODUiLCAiTVRNL21M4omlMS4wODUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygyNCkpCmNpcmNfZGF0YSRjdEROQS42bU1UTS5RIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuNm1NVE0uUSwgbGV2ZWxzPWMoIjEiLCIyIiksIGxhYmVscyA9IGMoIk1UTS9tTDwxLjA4NSIsICJNVE0vbUziiaUxLjA4NSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuNm1NVE0uUSwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgojT1MgYnkgY3RETkEgbGV2ZWxzIGF0IEJhc2VsaW5lIGJhc2VkIG9uIEFVQyBvcHRpbWFsIE1UTS9tTCBsZXZlbCBmcm9tIFJGUyBtb2RlbCAtIGN0RE5BIEJhc2VsaW5lIHBvc2l0aXZlCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQmFzZSE9IiIsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5CYXNlPT0iUE9TSVRJVkUiLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgojIENyZWF0ZSBhIG5ldyB2YXJpYWJsZSBiYXNlZCBvbiB0aGVzZSBxdWFydGlsZXMKCmNpcmNfZGF0YSRjdEROQS42bU1UTS5RIDwtIE5BCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lCiAgbXV0YXRlKGN0RE5BLjZtTVRNLlEgPSBjYXNlX3doZW4oCiAgICBjdEROQS5CYXNlLk1UTSA8IDEuMDg1IH4gMSwKICAgIGN0RE5BLkJhc2UuTVRNID49IDEuMDg1IH4gMgogICkpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KX5jdEROQS42bU1UTS5RLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KQpLTV9jdXJ2ZSA8LSBzdXJ2Zml0KHN1cnZfb2JqZWN0IH4gY3RETkEuNm1NVE0uUSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgTVRNL21MIGdyb3VwcyBhdCBCYXNlbGluZSIsIHlsYWI9ICJPdmVyYWxsIFN1cnZpdmFsIiwgeGxhYj0iTW9udGhzIGZyb20gc3VyZ2VyeSIsIGxlZ2VuZC5sYWJzPWMoIk1UTS9tTDwxLjA4NSIsICJNVE0vbUziiaUxLjA4NSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDI0KSkKY2lyY19kYXRhJGN0RE5BLjZtTVRNLlEgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS42bU1UTS5RLCBsZXZlbHM9YygiMSIsIjIiKSwgbGFiZWxzID0gYygiTVRNL21MPDEuMDg1IiwgIk1UTS9tTOKJpTEuMDg1IikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS42bU1UTS5RLCBkYXRhPWNpcmNfZGF0YSkgCmdnZm9yZXN0KGNveF9maXQsZGF0YSA9IGNpcmNfZGF0YSkgCnN1bW1hcnkoY294X2ZpdCkKY294X2ZpdF9zdW1tYXJ5IDwtIHN1bW1hcnkoY294X2ZpdCkKCiMgRXh0cmFjdCB2YWx1ZXMgZm9yIEhSLCA5NSUgQ0ksIGFuZCBwLXZhbHVlCkhSIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbMl0KbG93ZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzNdCnVwcGVyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFs0XQpwX3ZhbHVlIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbNV0KbGFiZWxfdGV4dCA8LSBwYXN0ZTAoIkhSID0gIiwgcm91bmQoSFIsIDIpLCAiICgiLCByb3VuZChsb3dlcl9DSSwgMiksICItIiwgcm91bmQodXBwZXJfQ0ksIDIpLCAiKTsgcCA9ICIsIHJvdW5kKHBfdmFsdWUsIDMpKQpwcmludChsYWJlbF90ZXh0KQpgYGAKCiNSRlMgYnkgY3RETkEgYXQgQmFzZWxpbmUgLSBleGNsdWRpbmcgcHRzIHRoYXQgZGlkIG5vdCByZWNlaXZlIE5BQwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJE5BQz09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLkJhc2UhPSIiLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLkJhc2UsIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLkJhc2UsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIEJhc2VsaW5lIHwgTkFDIHRyZWF0ZWQgb25seSIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJNb250aHMgZnJvbSBzdXJnZXJ5IiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygyNCkpCmNpcmNfZGF0YSRjdEROQS5CYXNlIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuQmFzZSwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLkJhc2UsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoKI09TIGJ5IGN0RE5BIGF0IEJhc2VsaW5lIC0gZXhjbHVkaW5nIHB0cyB0aGF0IGRpZCBub3QgcmVjZWl2ZSBOQUMKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSROQUM9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5CYXNlIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCl+Y3RETkEuQmFzZSwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLkJhc2UsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgQmFzZWxpbmUgfCBOQUMgdHJlYXRlZCBvbmx5IiwgeWxhYj0gIk92ZXJhbGwtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9Ik1vbnRocyBmcm9tIHN1cmdlcnkiLCBsZWdlbmQubGFicz1jKCJjdEROQSBOZWdhdGl2ZSIsICJjdEROQSBQb3NpdGl2ZSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDI0KSkKY2lyY19kYXRhJGN0RE5BLkJhc2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5CYXNlLCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuQmFzZSwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgojUkZTIGJ5IGN0RE5BIGxldmVscyBhdCBCYXNlbGluZSBiYXNlZCBvbiBBVUMgb3B0aW1hbCBNVE0vbWwgbGV2ZWwgLSBjdEROQSBCYXNlbGluZSBwb3NpdGl2ZSBleGNsdWRpbmcgcHRzIHRoYXQgZGlkIG5vdCByZWNlaXZlIE5BQwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJE5BQz09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLkJhc2UhPSIiLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQmFzZT09IlBPU0lUSVZFIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKI0RGUy5FdmVudApjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NvbXBsZXRlLmNhc2VzKGNpcmNfZGF0YSRERlMuRXZlbnQsIGNpcmNfZGF0YSRjdEROQS5CYXNlLk1UTSksXQpjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0gPC0gYXMubnVtZXJpYyhjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0pClJPQyA8LSByb2MoREZTLkV2ZW50IH4gIGN0RE5BLkJhc2UuTVRNLCBkYXRhID0gY2lyY19kYXRhLCBjaSA9IFRSVUUpCnA8LWdncm9jKFJPQywKICAgICAgICAgYWVzID0gYygibGluZXR5cGUiKSwgY29sb3IgPSAiYmx1ZSIsICBzaXplID0gMSwKICAgICAgICAgbGVnYWN5LmF4ZXMgPSBUUlVFKSArCiAgZ2VvbV9hYmxpbmUoY29sb3IgPSAiZGFyayBncmV5Iiwgc2l6ZSA9IDAuNSkgKwogIHRoZW1lX2NsYXNzaWMoKSsKICB5bGFiKCJTZW5zaXRpdml0eSIpICsgdGhlbWUoYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KGNvbG9yPSJibGFjayIsIHNpemU9MTQpLCBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoY29sb3I9ImJsYWNrIiwgc2l6ZT0xNCksYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIiwgc2l6ZT0xNCksYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoY29sb3VyID0gImJsYWNrIixzaXplPTE0KSxsZWdlbmQudGl0bGUgID0gZWxlbWVudF9ibGFuaygpLGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemU9MTQpKQpwCgojQVVDCkFVQyA8LSBhdWMoUk9DKQpwcmludChBVUMpCkFVQ19jb25mIDwtIGNpLmF1YyhST0MpCnByaW50KEFVQ19jb25mKQpyZXMucm9jIDwtIHJvYyhjaXJjX2RhdGEkREZTLkV2ZW50LCBjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0pCnBsb3Qucm9jKHJlcy5yb2MsIHByaW50LmF1YyA9IFRSVUUsIHByaW50LnRocmVzID0gImJlc3QiKQoKcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJE5BQz09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLkJhc2UhPSIiLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuQmFzZT09IlBPU0lUSVZFIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKIyBDcmVhdGUgYSBuZXcgdmFyaWFibGUgYmFzZWQgb24gdGhlc2UgcXVhcnRpbGVzCmNpcmNfZGF0YSRjdEROQS42bU1UTS5RIDwtIE5BICNmaXJzdCB3ZSBjcmVhdGUgdGhlIHZhcmlhYmxlIGZvciB0aGUgY3RETkEgJiBOQUMgY29tYmluYXRpb24sIGFuZCB3ZSBhc3NpZ24gdmFsdWVzCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lCiAgbXV0YXRlKGN0RE5BLjZtTVRNLlEgPSBjYXNlX3doZW4oCiAgICBjdEROQS5CYXNlLk1UTSA8IDAuNzEgfiAxLAogICAgY3RETkEuQmFzZS5NVE0gPj0gMC43MSB+IDIKICApKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KX5jdEROQS42bU1UTS5RLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS42bU1UTS5RLCBkYXRhID0gY2lyY19kYXRhLGNvbmYuaW50PTAuOTUsY29uZi50eXBlPSJsb2ctbG9nIikgCmdnc3VydnBsb3QoS01fY3VydmUsIGRhdGEgPSBjaXJjX2RhdGEsIHB2YWwgPSBGQUxTRSwgY29uZi5pbnQgPSBGQUxTRSwgcmlzay50YWJsZSA9IFRSVUUsIGJyZWFrLnRpbWUuYnk9MTIsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iUkZTIC0gY3RETkEgTVRNL21MIGdyb3VwcyBhdCBCYXNlbGluZSIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJNb250aHMgZnJvbSBzdXJnZXJ5IiwgbGVnZW5kLmxhYnM9YygiTVRNL21MPDAuNzEiLCAiTVRNL21M4omlMC43MSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDI0KSkKY2lyY19kYXRhJGN0RE5BLjZtTVRNLlEgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS42bU1UTS5RLCBsZXZlbHM9YygiMSIsIjIiKSwgbGFiZWxzID0gYygiTVRNL21MPDAuNzEiLCAiTVRNL21M4omlMC43MSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuNm1NVE0uUSwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgojUkZTIGJ5IGN0RE5BIG9uLU5BVCAtIGFsbCBzdGFnZXMKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5DMkQxIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KX5jdEROQS5DMkQxLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5DMkQxLCBkYXRhID0gY2lyY19kYXRhLGNvbmYuaW50PTAuOTUsY29uZi50eXBlPSJsb2ctbG9nIikgCmdnc3VydnBsb3QoS01fY3VydmUsIGRhdGEgPSBjaXJjX2RhdGEsIHB2YWwgPSBGQUxTRSwgY29uZi5pbnQgPSBGQUxTRSwgcmlzay50YWJsZSA9IFRSVUUsIGJyZWFrLnRpbWUuYnk9NiwgcGFsZXR0ZT1jKCJibHVlIiwicmVkIiksIHRpdGxlPSJSRlMgLSBjdEROQSBzdGF0dXMgb24tTkFUIHwgQWxsIHB0cyIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJNb250aHMgZnJvbSBzdXJnZXJ5IiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygyNCkpCmNpcmNfZGF0YSRjdEROQS5DMkQxIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuQzJEMSwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLkMyRDEsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoKI09TIGJ5IGN0RE5BIG9uLU5BVCAtIGFsbCBzdGFnZXMKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5DMkQxIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCl+Y3RETkEuQzJEMSwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLkMyRDEsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgc3RhdHVzIG9uLU5BVCB8IEFsbCBwdHMiLCB5bGFiPSAiT3ZlcmFsbC1GcmVlIFN1cnZpdmFsIiwgeGxhYj0iTW9udGhzIGZyb20gc3VyZ2VyeSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BIE5lZ2F0aXZlIiwgImN0RE5BIFBvc2l0aXZlIiksIGxlZ2VuZC50aXRsZT0iIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXM9IGMoMjQpKQpjaXJjX2RhdGEkY3RETkEuQzJEMSA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLkMyRDEsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5DMkQxLCBkYXRhPWNpcmNfZGF0YSkgCmdnZm9yZXN0KGNveF9maXQsZGF0YSA9IGNpcmNfZGF0YSkgCnN1bW1hcnkoY294X2ZpdCkKY294X2ZpdF9zdW1tYXJ5IDwtIHN1bW1hcnkoY294X2ZpdCkKCiMgRXh0cmFjdCB2YWx1ZXMgZm9yIEhSLCA5NSUgQ0ksIGFuZCBwLXZhbHVlCkhSIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbMl0KbG93ZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzNdCnVwcGVyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFs0XQpwX3ZhbHVlIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbNV0KbGFiZWxfdGV4dCA8LSBwYXN0ZTAoIkhSID0gIiwgcm91bmQoSFIsIDIpLCAiICgiLCByb3VuZChsb3dlcl9DSSwgMiksICItIiwgcm91bmQodXBwZXJfQ0ksIDIpLCAiKTsgcCA9ICIsIHJvdW5kKHBfdmFsdWUsIDMpKQpwcmludChsYWJlbF90ZXh0KQpgYGAKCgoKCiNSRlMgYnkgY3RETkEgcG9zdC1OQVQgLSBhbGwgc3RhZ2VzCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEucG9zdE5BQyE9IiIsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCl+Y3RETkEucG9zdE5BQywgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KQpLTV9jdXJ2ZSA8LSBzdXJ2Zml0KHN1cnZfb2JqZWN0IH4gY3RETkEucG9zdE5BQywgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTYsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iUkZTIC0gY3RETkEgc3RhdHVzIHBvc3QtTkFUIHwgQWxsIHB0cyIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJNb250aHMgZnJvbSBzdXJnZXJ5IiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygyNCkpCmNpcmNfZGF0YSRjdEROQS5wb3N0TkFDIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEucG9zdE5BQywgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLnBvc3ROQUMsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoKI09TIGJ5IGN0RE5BIHBvc3QtTkFUIC0gYWxsIHN0YWdlcwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMhPSIiLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KX5jdEROQS5wb3N0TkFDLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KQpLTV9jdXJ2ZSA8LSBzdXJ2Zml0KHN1cnZfb2JqZWN0IH4gY3RETkEucG9zdE5BQywgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTYsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iT1MgLSBjdEROQSBzdGF0dXMgcG9zdC1OQVQgfCBBbGwgcHRzIiwgeWxhYj0gIk92ZXJhbGwtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9Ik1vbnRocyBmcm9tIHN1cmdlcnkiLCBsZWdlbmQubGFicz1jKCJjdEROQSBOZWdhdGl2ZSIsICJjdEROQSBQb3NpdGl2ZSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDI0KSkKY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5wb3N0TkFDLCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEucG9zdE5BQywgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgojTXVsdGl2YXJpYXRlIGNveCByZWdyZXNzaW9uIGZvciBSRlMgLSBjdEROQSBwb3N0LU5BVApgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMhPSIiLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpjaXJjX2RhdGEkY3RETkEucG9zdE5BQyA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIiksIGxhYmVscyA9IGMoIk5lZ2F0aXZlIiwgIlBvc2l0aXZlIikpCmNpcmNfZGF0YSRQcmltU2l0ZSA8LSBmYWN0b3IoY2lyY19kYXRhJFByaW1TaXRlLCBsZXZlbHM9YygiU3RvbWFjaCIsIkcvSiIpKQpjaXJjX2RhdGEkR2VuZGVyIDwtIGZhY3RvcihjaXJjX2RhdGEkR2VuZGVyLCBsZXZlbHM9YygiTWFsZSIsIkZlbWFsZSIpKQpjaXJjX2RhdGEkQWdlLkdyb3VwIDwtIGZhY3RvcihjaXJjX2RhdGEkQWdlLkdyb3VwLCBsZXZlbHM9YygiMiIsIjEiKSwgbGFiZWxzID0gYygiPjcwIiwgIuKJpDcwIikpCmNpcmNfZGF0YSRwVC5TdGFnZSA8LSBmYWN0b3IoY2lyY19kYXRhJHBULlN0YWdlLCBsZXZlbHM9YygiVDEtVDMiLCJUNCIpKQpjaXJjX2RhdGEkeXBOU3RhdHVzIDwtIGZhY3RvcihjaXJjX2RhdGEkeXBOU3RhdHVzLCBsZXZlbHM9YygiTjAiLCJOMS1OMyIpKQpjaXJjX2RhdGEkVFJHIDwtIGZhY3RvcihjaXJjX2RhdGEkVFJHLCBsZXZlbHM9YygiVFJHMS8yLzMiLCJUUkc0LzUiKSkKY2lyY19kYXRhJEFDVCA8LSBmYWN0b3IoY2lyY19kYXRhJEFDVCwgbGV2ZWxzPWMoIlRSVUUiLCJGQUxTRSIpLCBsYWJlbHMgPSBjKCJZZXMiLCAiTm8iKSkKc3Vydl9vYmplY3QgPC0gU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkgCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5wb3N0TkFDICsgUHJpbVNpdGUgKyBHZW5kZXIgKyBBZ2UuR3JvdXAgKyBBQ1QsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCwgZGF0YSA9IGNpcmNfZGF0YSwgbWFpbiA9ICJNdWx0aXZhcmlhdGUgUmVncmVzc2lvbiBNb2RlbCBmb3IgUkZTIiwgcmVmTGFiZWwgPSAiUmVmZXJlbmNlIEdyb3VwIikKdGVzdC5waCA8LSBjb3guenBoKGNveF9maXQpCmBgYAoKCiNNdWx0aXZhcmlhdGUgY294IHJlZ3Jlc3Npb24gZm9yIE9TIC0gY3RETkEgcG9zdC1OQVQKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5wb3N0TkFDIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKY2lyY19kYXRhJGN0RE5BLnBvc3ROQUMgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5wb3N0TkFDLCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpLCBsYWJlbHMgPSBjKCJOZWdhdGl2ZSIsICJQb3NpdGl2ZSIpKQpjaXJjX2RhdGEkUHJpbVNpdGUgPC0gZmFjdG9yKGNpcmNfZGF0YSRQcmltU2l0ZSwgbGV2ZWxzPWMoIlN0b21hY2giLCJHL0oiKSkKY2lyY19kYXRhJEdlbmRlciA8LSBmYWN0b3IoY2lyY19kYXRhJEdlbmRlciwgbGV2ZWxzPWMoIk1hbGUiLCJGZW1hbGUiKSkKY2lyY19kYXRhJEFnZS5Hcm91cCA8LSBmYWN0b3IoY2lyY19kYXRhJEFnZS5Hcm91cCwgbGV2ZWxzPWMoIjIiLCIxIiksIGxhYmVscyA9IGMoIj43MCIsICLiiaQ3MCIpKQpjaXJjX2RhdGEkcFQuU3RhZ2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRwVC5TdGFnZSwgbGV2ZWxzPWMoIlQxLVQzIiwiVDQiKSkKY2lyY19kYXRhJHlwTlN0YXR1cyA8LSBmYWN0b3IoY2lyY19kYXRhJHlwTlN0YXR1cywgbGV2ZWxzPWMoIk4wIiwiTjEtTjMiKSkKY2lyY19kYXRhJFRSRyA8LSBmYWN0b3IoY2lyY19kYXRhJFRSRywgbGV2ZWxzPWMoIlRSRzEvMi8zIiwiVFJHNC81IikpCmNpcmNfZGF0YSRBQ1QgPC0gZmFjdG9yKGNpcmNfZGF0YSRBQ1QsIGxldmVscz1jKCJUUlVFIiwiRkFMU0UiKSwgbGFiZWxzID0gYygiWWVzIiwgIk5vIikpCnN1cnZfb2JqZWN0IDwtIFN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KSAKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLnBvc3ROQUMgKyBQcmltU2l0ZSArIEdlbmRlciArIEFnZS5Hcm91cCArIEFDVCwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LCBkYXRhID0gY2lyY19kYXRhLCBtYWluID0gIk11bHRpdmFyaWF0ZSBSZWdyZXNzaW9uIE1vZGVsIGZvciBPUyIsIHJlZkxhYmVsID0gIlJlZmVyZW5jZSBHcm91cCIpCnRlc3QucGggPC0gY294LnpwaChjb3hfZml0KQpgYGAKCgojQXNzb2NpYXRpb24gb2YgY3RETkEgRHluYW1pY3MgcG9zdC1OQVQgYW5kIFJlc3BvbnNlCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KCmNpcmNfZGF0YSRjdEROQS5EeW5hbWljcyA8LSBOQSAjZmlyc3Qgd2UgY3JlYXRlIHRoZSB2YXJpYWJsZSBmb3IgdGhlIGN0RE5BICYgTkFDIGNvbWJpbmF0aW9uLCBhbmQgd2UgYXNzaWduIHZhbHVlcwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5EeW5hbWljcyA9IGNhc2Vfd2hlbigKICAgIGN0RE5BLkJhc2UgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLkMyRDEgPT0gIk5FR0FUSVZFIiAmIGN0RE5BLnBvc3ROQUMgPT0gIk5FR0FUSVZFIiB+ICJjdEROQSArLy0vLSIsCiAgICBjdEROQS5CYXNlID09ICJQT1NJVElWRSIgJiBjdEROQS5DMkQxID09ICJQT1NJVElWRSIgJiBjdEROQS5wb3N0TkFDID09ICJORUdBVElWRSIgfiAiY3RETkEgKy8rLy0iLAogICAgY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiICYgY3RETkEuQzJEMSA9PSAiUE9TSVRJVkUiICYgY3RETkEucG9zdE5BQyA9PSAiUE9TSVRJVkUiIH4gImN0RE5BICsvKy8rIgogICkpCgojVmVydGljYWwgRmlzaGVyIHBsb3QgZm9yIGN0RE5BIGNsZWFyYW5jZSBwb3N0LU5BVCBhbmQgUmVjIFN0YXR1cwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5EeW5hbWljcyE9IiIsXQpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLkR5bmFtaWNzLCBkYXRhID0gY2lyY19kYXRhKQpjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5EeW5hbWljcywgbGV2ZWxzPWMoImN0RE5BICsvLS8tIiwgImN0RE5BICsvKy8tIiwgImN0RE5BICsvKy8rIikpCmNpcmNfZGF0YSRUUkcgPC0gZmFjdG9yKGNpcmNfZGF0YSRUUkcsIGxldmVscyA9IGMoIlRSRzEvMi8zIiwgIlRSRzQvNSIpKQpjb250aW5nZW5jeV90YWJsZSA8LSB0YWJsZShjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MsIGNpcmNfZGF0YSRUUkcpCmZpc2hlcl9leGFjdF90ZXN0IDwtIGZpc2hlci50ZXN0KGNvbnRpbmdlbmN5X3RhYmxlKQpjaGlfc3F1YXJlX3Rlc3QgPC0gY2hpc3EudGVzdChjb250aW5nZW5jeV90YWJsZSkKcHJpbnQoY2hpX3NxdWFyZV90ZXN0KQpwcmludChmaXNoZXJfZXhhY3RfdGVzdCkKcHJpbnQoY29udGluZ2VuY3lfdGFibGUpCnRhYmxlX2RmIDwtIGFzLmRhdGEuZnJhbWUoY29udGluZ2VuY3lfdGFibGUpCnRhYmxlX2RmJFRvdGFsIDwtIGF2ZSh0YWJsZV9kZiRGcmVxLCB0YWJsZV9kZiRWYXIxLCBGVU4gPSBzdW0pCnRhYmxlX2RmJFBlcmNlbnRhZ2UgPC0gdGFibGVfZGYkRnJlcSAvIHRhYmxlX2RmJFRvdGFsCnRhYmxlX2RmJE1pZGRsZVBlcmNlbnRhZ2UgPC0gdGFibGVfZGYkUGVyY2VudGFnZSAvIDIKCiMgU3dhcHBpbmcgeCBhbmQgeSBpbiBnZ3Bsb3QgZnVuY3Rpb24gdG8gbWFrZSBiYXIgcGxvdCB2ZXJ0aWNhbApnZ3Bsb3QodGFibGVfZGYsIGFlcyh5ID0gVmFyMSwgeCA9IFBlcmNlbnRhZ2UsIGZpbGwgPSBWYXIyKSkgKwogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiKSArCiAgZ2VvbV90ZXh0KGFlcyh4ID0gTWlkZGxlUGVyY2VudGFnZSwgbGFiZWwgPSBGcmVxKSwgcG9zaXRpb24gPSAic3RhY2siLCBjb2xvciA9ICJibGFjayIsIHZqdXN0ID0gMS41LCBzaXplID0gNykgKwogIHRoZW1lX21pbmltYWwoKSArCiAgbGFicyh0aXRsZSA9ICJjdEROQSBEeW1hbWljcyBwb3N0LU5BVCIsIHkgPSAiY3RETkEiLCB4ID0gIlBhdGllbnRzICglKSIsIGZpbGwgPSAiUGF0aCBSZXNwb25zZSIpICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGFiZWxzID0gc2NhbGVzOjpwZXJjZW50X2Zvcm1hdCgpKSArCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gYygiVFJHMS8yLzMiID0gImxpZ2h0Ymx1ZTMiLCAiVFJHNC81IiA9ICJyZWQiKSkgKyAjIGRlZmluZSBjdXN0b20gY29sb3JzCiAgdGhlbWUoYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoYW5nbGUgPSAwLCBoanVzdCA9IDEuNSwgc2l6ZSA9IDE0KSwgIyBpbmNyZWFzZSB5LWF4aXMgdGV4dCBzaXplCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE0LCBjb2xvciA9ICJibGFjayIpLCAjIGluY3JlYXNlIHgtYXhpcyB0ZXh0IHNpemUKICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE0LCBjb2xvciA9ICJibGFjayIpLCAjIGluY3JlYXNlIHktYXhpcyBsYWJlbCBzaXplCiAgICAgICAgYXhpcy50aXRsZS54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNCwgY29sb3IgPSAiYmxhY2siKSwgIyBpbmNyZWFzZSB4LWF4aXMgbGFiZWwgc2l6ZQogICAgICAgIGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siKSkgICMgaW5jcmVhc2UgUmVjdXJyZW5jZSBsYWJlbCBzaXplCgojQ2FsY3VsYXRpbmcgcC12YWx1ZSB3aXRoIEZpc2hlciBleGFjdCB0ZXN0IGZvciB0aGUgY3RETkEgKy8rLysgdnMgY3RETkEgKy8rLy0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCgpjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MgPC0gTkEgI2ZpcnN0IHdlIGNyZWF0ZSB0aGUgdmFyaWFibGUgZm9yIHRoZSBjdEROQSAmIE5BQyBjb21iaW5hdGlvbiwgYW5kIHdlIGFzc2lnbiB2YWx1ZXMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YSAlPiUKICBtdXRhdGUoY3RETkEuRHluYW1pY3MgPSBjYXNlX3doZW4oCiAgICBjdEROQS5CYXNlID09ICJQT1NJVElWRSIgJiBjdEROQS5DMkQxID09ICJORUdBVElWRSIgJiBjdEROQS5wb3N0TkFDID09ICJORUdBVElWRSIgfiAiY3RETkEgKy8tLy0iLAogICAgY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiICYgY3RETkEuQzJEMSA9PSAiUE9TSVRJVkUiICYgY3RETkEucG9zdE5BQyA9PSAiTkVHQVRJVkUiIH4gImN0RE5BICsvKy8tIiwKICAgIGN0RE5BLkJhc2UgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLkMyRDEgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLnBvc3ROQUMgPT0gIlBPU0lUSVZFIiB+ICJjdEROQSArLysvKyIKICApKQoKI1ZlcnRpY2FsIEZpc2hlciBwbG90IGZvciBjdEROQSBjbGVhcmFuY2UgcG9zdC1OQVQgYW5kIFJlYyBTdGF0dXMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MhPSIiLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MhPSJjdEROQSArLy0vLSIsXQpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLkR5bmFtaWNzLCBkYXRhID0gY2lyY19kYXRhKQpjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5EeW5hbWljcywgbGV2ZWxzPWMoImN0RE5BICsvKy8tIiwgImN0RE5BICsvKy8rIikpCmNpcmNfZGF0YSRUUkcgPC0gZmFjdG9yKGNpcmNfZGF0YSRUUkcsIGxldmVscyA9IGMoIlRSRzEvMi8zIiwgIlRSRzQvNSIpKQpjb250aW5nZW5jeV90YWJsZSA8LSB0YWJsZShjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MsIGNpcmNfZGF0YSRUUkcpCmZpc2hlcl9leGFjdF90ZXN0IDwtIGZpc2hlci50ZXN0KGNvbnRpbmdlbmN5X3RhYmxlKQpjaGlfc3F1YXJlX3Rlc3QgPC0gY2hpc3EudGVzdChjb250aW5nZW5jeV90YWJsZSkKcHJpbnQoY2hpX3NxdWFyZV90ZXN0KQpwcmludChmaXNoZXJfZXhhY3RfdGVzdCkKcHJpbnQoY29udGluZ2VuY3lfdGFibGUpCmBgYAoKCiNSRlMgYnkgY3RETkEgRHluYW1pY3MgcG9zdC1OQVQKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQoKY2lyY19kYXRhJGN0RE5BLkR5bmFtaWNzIDwtIE5BICNmaXJzdCB3ZSBjcmVhdGUgdGhlIHZhcmlhYmxlIGZvciB0aGUgY3RETkEgJiBOQUMgY29tYmluYXRpb24sIGFuZCB3ZSBhc3NpZ24gdmFsdWVzCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lCiAgbXV0YXRlKGN0RE5BLkR5bmFtaWNzID0gY2FzZV93aGVuKAogICAgY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiICYgY3RETkEuQzJEMSA9PSAiTkVHQVRJVkUiICYgY3RETkEucG9zdE5BQyA9PSAiTkVHQVRJVkUiIH4gImN0RE5BICsvLS8tIiwKICAgIGN0RE5BLkJhc2UgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLkMyRDEgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLnBvc3ROQUMgPT0gIk5FR0FUSVZFIiB+ICJjdEROQSArLysvLSIsCiAgICBjdEROQS5CYXNlID09ICJQT1NJVElWRSIgJiBjdEROQS5DMkQxID09ICJQT1NJVElWRSIgJiBjdEROQS5wb3N0TkFDID09ICJQT1NJVElWRSIgfiAiY3RETkEgKy8rLysiCiAgKSkKCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbIWlzLm5hKGNpcmNfZGF0YSRjdEROQS5EeW5hbWljcyksXQpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLkR5bmFtaWNzLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5EeW5hbWljcywgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInJlZCIpLCB0aXRsZT0iUkZTIC0gY3RETkEgRHluYW1pY3MgcG9zdC1OQVQiLCB5bGFiPSAiUmVjdXJyZW5jZS1GcmVlIFN1cnZpdmFsIiwgeGxhYj0iTW9udGhzIGZyb20gc3VyZ2VyeSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BICsvLS8tIiwiY3RETkEgKy8rLy0iLCAiY3RETkEgKy8rLysiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLDI0KSkKY2lyY19kYXRhJGN0RE5BLkR5bmFtaWNzIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MsIGxldmVscz1jKCJjdEROQSArLy0vLSIsImN0RE5BICsvKy8tIiwgImN0RE5BICsvKy8rIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5EeW5hbWljcywgZGF0YT1jaXJjX2RhdGEpCnN1bW1hcnkoY294X2ZpdCkKYGBgCgoKI09TIGJ5IGN0RE5BIER5bmFtaWNzIHBvc3QtTkFUCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KCmNpcmNfZGF0YSRjdEROQS5EeW5hbWljcyA8LSBOQSAjZmlyc3Qgd2UgY3JlYXRlIHRoZSB2YXJpYWJsZSBmb3IgdGhlIGN0RE5BICYgTkFDIGNvbWJpbmF0aW9uLCBhbmQgd2UgYXNzaWduIHZhbHVlcwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5EeW5hbWljcyA9IGNhc2Vfd2hlbigKICAgIGN0RE5BLkJhc2UgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLkMyRDEgPT0gIk5FR0FUSVZFIiAmIGN0RE5BLnBvc3ROQUMgPT0gIk5FR0FUSVZFIiB+ICJjdEROQSArLy0vLSIsCiAgICBjdEROQS5CYXNlID09ICJQT1NJVElWRSIgJiBjdEROQS5DMkQxID09ICJQT1NJVElWRSIgJiBjdEROQS5wb3N0TkFDID09ICJORUdBVElWRSIgfiAiY3RETkEgKy8rLy0iLAogICAgY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiICYgY3RETkEuQzJEMSA9PSAiUE9TSVRJVkUiICYgY3RETkEucG9zdE5BQyA9PSAiUE9TSVRJVkUiIH4gImN0RE5BICsvKy8rIgogICkpCgpjaXJjX2RhdGEgPC0gY2lyY19kYXRhWyFpcy5uYShjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MpLF0Kc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCl+Y3RETkEuRHluYW1pY3MsIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5EeW5hbWljcywgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInJlZCIpLCB0aXRsZT0iT1MgLSBjdEROQSBEeW5hbWljcyBwb3N0LU5BVCIsIHlsYWI9ICJPdmVyYWxsIFN1cnZpdmFsIiwgeGxhYj0iTW9udGhzIGZyb20gc3VyZ2VyeSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BICsvLS8tIiwiY3RETkEgKy8rLy0iLCAiY3RETkEgKy8rLysiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLDI0KSkKY2lyY19kYXRhJGN0RE5BLkR5bmFtaWNzIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MsIGxldmVscz1jKCJjdEROQSArLy0vLSIsImN0RE5BICsvKy8tIiwgImN0RE5BICsvKy8rIikpCmNveF9maXQgPC0gY294cGhmKHN1cnZfb2JqZWN0IH4gY3RETkEuRHluYW1pY3MsIGRhdGE9Y2lyY19kYXRhKQpzdW1tYXJ5KGNveF9maXQpCmBgYAoKCiNMZXZlbHMgb2YgQmFzZWxpbmUgTVRNL21MIGluIGN0RE5BIER5bmFtaWNzIHBvc3QtTkFUIGNhdGVnb3JpZXMKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5CYXNlIT0iIixdCmNpcmNfZGF0YSA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCmNpcmNfZGF0YSRjdEROQS5EeW5hbWljcyA8LSBOQSAjZmlyc3Qgd2UgY3JlYXRlIHRoZSB2YXJpYWJsZSBmb3IgdGhlIGN0RE5BICYgTkFDIGNvbWJpbmF0aW9uLCBhbmQgd2UgYXNzaWduIHZhbHVlcwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5EeW5hbWljcyA9IGNhc2Vfd2hlbigKICAgIGN0RE5BLkJhc2UgPT0gIlBPU0lUSVZFIiAmIGN0RE5BLkMyRDEgPT0gIk5FR0FUSVZFIiAmIGN0RE5BLnBvc3ROQUMgPT0gIk5FR0FUSVZFIiB+ICJjdEROQSArLy0vLSIsCiAgICBjdEROQS5CYXNlID09ICJQT1NJVElWRSIgJiBjdEROQS5DMkQxID09ICJQT1NJVElWRSIgJiBjdEROQS5wb3N0TkFDID09ICJORUdBVElWRSIgfiAiY3RETkEgKy8rLy0iLAogICAgY3RETkEuQmFzZSA9PSAiUE9TSVRJVkUiICYgY3RETkEuQzJEMSA9PSAiUE9TSVRJVkUiICYgY3RETkEucG9zdE5BQyA9PSAiUE9TSVRJVkUiIH4gImN0RE5BICsvKy8rIgogICkpCgojIFRyYW5zZm9ybSBjdEROQS5CYXNlLk1UTSB3aXRoIGxvZzEwCmNpcmNfZGF0YSA8LSBzdWJzZXQoY2lyY19kYXRhLCAhaXMubmEoY3RETkEuRHluYW1pY3MpKQpjaXJjX2RhdGEkY3RETkEuQmFzZS5NVE0gPC0gYXMubnVtZXJpYyhhcy5jaGFyYWN0ZXIoY2lyY19kYXRhJGN0RE5BLkJhc2UuTVRNKSkKY2lyY19kYXRhJGN0RE5BLkR5bmFtaWNzIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuRHluYW1pY3MsIGxldmVscz1jKCJjdEROQSArLy0vLSIsImN0RE5BICsvKy8tIiwgImN0RE5BICsvKy8rIikpCm1lZGlhbl9CYXNlX01UTSA8LSBhZ2dyZWdhdGUoY3RETkEuQmFzZS5NVE0gfiBjdEROQS5EeW5hbWljcywgZGF0YSA9IGNpcmNfZGF0YSwgRlVOID0gbWVkaWFuKQpwcmludChtZWRpYW5fQmFzZV9NVE0pCgojIENyZWF0ZSB2aW9saW4gcGxvdCB3aXRoIGxvZzEwIHNjYWxlIG9uIHktYXhpcwpnZ3Bsb3QoY2lyY19kYXRhLCBhZXMoeD1jdEROQS5EeW5hbWljcywgeT1jdEROQS5CYXNlLk1UTSwgZmlsbD1jdEROQS5EeW5hbWljcykpICsKICBnZW9tX3Zpb2xpbih0cmltPUZBTFNFKSArCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzPWMoImN0RE5BICsvLS8tIj0ibGlnaHRibHVlIiwgImN0RE5BICsvKy8tIj0ibGlnaHRncmVlbiIsICJjdEROQSArLysvKyI9InNhbG1vbiIpKSArCiAgZ2VvbV9ib3hwbG90KHdpZHRoPTAuMSwgZmlsbD0id2hpdGUiLCBjb2xvdXI9ImJsYWNrIiwgYWxwaGE9MC41KSArCiAgc2NhbGVfeV9sb2cxMChicmVha3M9YygwLjAwMSwgMC4wMSwgMC4xLCAxLCAxMCwgMTAwLCAxMDAwLCAxMDAwMCkpICsKICBsYWJzKHRpdGxlPSJCYXNlbGluZSBNVE0vbUwgfCBEeW5hbWljcyBwb3N0LU5BVCIsIHg9IkR5bmFtaWNzIHBvc3QtTkFUIiwgeT0iQmFzZWxpbmUgTVRNL21MIikgKwogIHRoZW1lX21pbmltYWwoKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikKbTNfMXYyIDwtIHdpbGNveC50ZXN0KGN0RE5BLkJhc2UuTVRNIH4gY3RETkEuRHluYW1pY3MsCiAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5EeW5hbWljcyAlaW4lIGMoImN0RE5BICsvLS8tIiwgImN0RE5BICsvKy8tIiksIF0sCiAgICAgICAgICAgICAgICAgICAgICBuYS5ybSA9IFRSVUUpCnByaW50KG0zXzF2MikKbTNfMXYzIDwtIHdpbGNveC50ZXN0KGN0RE5BLkJhc2UuTVRNIH4gY3RETkEuRHluYW1pY3MsCiAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5EeW5hbWljcyAlaW4lIGMoImN0RE5BICsvLS8tIiwgImN0RE5BICsvKy8rIiksIF0sCiAgICAgICAgICAgICAgICAgICAgICBuYS5ybSA9IFRSVUUpCnByaW50KG0zXzF2MykKbTNfMnYzIDwtIHdpbGNveC50ZXN0KGN0RE5BLkJhc2UuTVRNIH4gY3RETkEuRHluYW1pY3MsCiAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5EeW5hbWljcyAlaW4lIGMoImN0RE5BICsvKy8tIiwgImN0RE5BICsvKy8rIiksIF0sCiAgICAgICAgICAgICAgICAgICAgICBuYS5ybSA9IFRSVUUpCnByaW50KG0zXzJ2MykKYGBgCgojVGltZSBvZiBjdEROQSBkcmF3cyBhdCB0aGUgTVJEIHdpbmRvdyBmcm9tIHN1cmdlcnkKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQgPT0gVFJVRSwgXQoKY2lyY19kYXRhJGN0RE5BLk1SRC5EYXRlIDwtIGFzLkRhdGUoY2lyY19kYXRhJGN0RE5BLk1SRC5EYXRlLCBmb3JtYXQ9IiVtLyVkLyVZIikKY2lyY19kYXRhJFN1cmdlcnkuRGF0ZSA8LSBhcy5EYXRlKGNpcmNfZGF0YSRTdXJnZXJ5LkRhdGUsIGZvcm1hdD0iJW0vJWQvJVkiKQpjaXJjX2RhdGEkVGltZV90b19jdEROQV9NUkQgPC0gYXMubnVtZXJpYyhkaWZmdGltZShjaXJjX2RhdGEkY3RETkEuTVJELkRhdGUsIGNpcmNfZGF0YSRTdXJnZXJ5LkRhdGUsIHVuaXRzPSJkYXlzIikpCm1lZGlhbl9jdEROQV9NUkQgPC0gbWVkaWFuKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX01SRCwgbmEucm09VFJVRSkKcmFuZ2VfY3RETkFfTVJEIDwtIHJhbmdlKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX01SRCwgbmEucm09VFJVRSkKUTFfY3RETkFfTVJEIDwtIHF1YW50aWxlKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX01SRCwgMC4yNSwgbmEucm09VFJVRSkKUTNfY3RETkFfTVJEIDwtIHF1YW50aWxlKGNpcmNfZGF0YSRUaW1lX3RvX2N0RE5BX01SRCwgMC43NSwgbmEucm09VFJVRSkKSVFSX2N0RE5BX01SRCA8LSBJUVIoY2lyY19kYXRhJFRpbWVfdG9fY3RETkFfTVJELCBuYS5ybT1UUlVFKQpjYXQoIk1lZGlhbiB0aW1lIGZyb20gc3VyZ2VyeSB0byBjdEROQSBNUkQgdGltZSBwb2ludDoiLCBtZWRpYW5fY3RETkFfTVJELCAiZGF5c1xuIikKY2F0KCJSYW5nZToiLCByYW5nZV9jdEROQV9NUkRbMV0sICItIiwgcmFuZ2VfY3RETkFfTVJEWzJdLCAiZGF5c1xuIikKY2F0KCJRMSAoMjV0aCBwZXJjZW50aWxlKToiLCBRMV9jdEROQV9NUkQsICJkYXlzXG4iKQpjYXQoIlEzICg3NXRoIHBlcmNlbnRpbGUpOiIsIFEzX2N0RE5BX01SRCwgImRheXNcbiIpCmNhdCgiSW50ZXJxdWFydGlsZSBSYW5nZSAoSVFSKToiLCBJUVJfY3RETkFfTVJELCAiZGF5c1xuIikKYGBgCgojUkZTIGJ5IGN0RE5BIGF0IHRoZSBNUkQgV2luZG93IC0gYWxsIHN0YWdlcwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLk1SRCE9IiIsXQpjaXJjX2RhdGEkREZTLm1vbnRocz1jaXJjX2RhdGEkREZTLm1vbnRocy0zCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJERGUy5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCl+Y3RETkEuTVJELCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5NUkQsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIE1SRCB3aW5kb3cgfCBBbGwgcHRzIiwgeWxhYj0gIlJlY3VycmVuY2UtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9IlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLCAyNCkpCmNpcmNfZGF0YSRjdEROQS5NUkQgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5NUkQsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5NUkQsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoKI09TIGJ5IGN0RE5BIGF0IHRoZSBNUkQgV2luZG93IC0gYWxsIHN0YWdlcwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLk1SRCE9IiIsXQpjaXJjX2RhdGEkRlUubW9udGhzPWNpcmNfZGF0YSRGVS5tb250aHMtMwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRGVS5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLk1SRCwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLk1SRCwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTYsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iT1MgLSBjdEROQSBNUkQgd2luZG93IHwgQWxsIHB0cyIsIHlsYWI9ICJPdmVyYWxsIFN1cnZpdmFsIiwgeGxhYj0iVGltZSBmcm9tIExhbmRtYXJrIFRpbWUgcG9pbnQgKE1vbnRocykiLCBsZWdlbmQubGFicz1jKCJjdEROQSBOZWdhdGl2ZSIsICJjdEROQSBQb3NpdGl2ZSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsIDI0KSkKY2lyY19kYXRhJGN0RE5BLk1SRCA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLk1SRCwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLk1SRCwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgoKI1JGUyBieSBjdEROQSBhdCB0aGUgTVJEIFdpbmRvdyAtIEFDVCBwdHMgb25seQpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEFDVD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLk1SRCE9IiIsXQpjaXJjX2RhdGEkREZTLm1vbnRocz1jaXJjX2RhdGEkREZTLm1vbnRocy0zCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJERGUy5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCl+Y3RETkEuTVJELCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5NUkQsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIE1SRCB3aW5kb3cgfCBBQ1QgdHJlYXRlZCIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJUaW1lIGZyb20gTGFuZG1hcmsgVGltZSBwb2ludCAoTW9udGhzKSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BIE5lZ2F0aXZlIiwgImN0RE5BIFBvc2l0aXZlIiksIGxlZ2VuZC50aXRsZT0iIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXM9IGMoMCwgMjQpKQpjaXJjX2RhdGEkY3RETkEuTVJEIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuTVJELCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuTVJELCBkYXRhPWNpcmNfZGF0YSkgCmdnZm9yZXN0KGNveF9maXQsZGF0YSA9IGNpcmNfZGF0YSkgCnN1bW1hcnkoY294X2ZpdCkKY294X2ZpdF9zdW1tYXJ5IDwtIHN1bW1hcnkoY294X2ZpdCkKCiMgRXh0cmFjdCB2YWx1ZXMgZm9yIEhSLCA5NSUgQ0ksIGFuZCBwLXZhbHVlCkhSIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbMl0KbG93ZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzNdCnVwcGVyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFs0XQpwX3ZhbHVlIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbNV0KbGFiZWxfdGV4dCA8LSBwYXN0ZTAoIkhSID0gIiwgcm91bmQoSFIsIDIpLCAiICgiLCByb3VuZChsb3dlcl9DSSwgMiksICItIiwgcm91bmQodXBwZXJfQ0ksIDIpLCAiKTsgcCA9ICIsIHJvdW5kKHBfdmFsdWUsIDMpKQpwcmludChsYWJlbF90ZXh0KQpgYGAKCgoKCiNPUyBieSBjdEROQSBhdCB0aGUgTVJEIFdpbmRvdyAtIEFDVCBwdHMgb25seQpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEFDVD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLk1SRCE9IiIsXQpjaXJjX2RhdGEkRlUubW9udGhzPWNpcmNfZGF0YSRGVS5tb250aHMtMwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRGVS5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLk1SRCwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLk1SRCwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTYsIHBhbGV0dGU9YygiYmx1ZSIsInJlZCIpLCB0aXRsZT0iT1MgLSBjdEROQSBNUkQgd2luZG93IHwgQUNUIHRyZWF0ZWQiLCB5bGFiPSAiT3ZlcmFsbCBTdXJ2aXZhbCIsIHhsYWI9IlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLCAyNCkpCmNpcmNfZGF0YSRjdEROQS5NUkQgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5NUkQsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5NUkQsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoKCiNSRlMgYnkgY3RETkEgYXQgdGhlIE1SRCBXaW5kb3cgLSBOQUMgcHRzIG9ubHkKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSROQUM9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5NUkQhPSIiLF0KY2lyY19kYXRhJERGUy5tb250aHM9Y2lyY19kYXRhJERGUy5tb250aHMtMwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRERlMubW9udGhzPj0wLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLk1SRCwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KQpLTV9jdXJ2ZSA8LSBzdXJ2Zml0KHN1cnZfb2JqZWN0IH4gY3RETkEuTVJELCBkYXRhID0gY2lyY19kYXRhLGNvbmYuaW50PTAuOTUsY29uZi50eXBlPSJsb2ctbG9nIikgCmdnc3VydnBsb3QoS01fY3VydmUsIGRhdGEgPSBjaXJjX2RhdGEsIHB2YWwgPSBGQUxTRSwgY29uZi5pbnQgPSBGQUxTRSwgcmlzay50YWJsZSA9IFRSVUUsIGJyZWFrLnRpbWUuYnk9NiwgcGFsZXR0ZT1jKCJibHVlIiwicmVkIiksIHRpdGxlPSJSRlMgLSBjdEROQSBNUkQgd2luZG93IHwgTkFDIHRyZWF0ZWQiLCB5bGFiPSAiUmVjdXJyZW5jZS1GcmVlIFN1cnZpdmFsIiwgeGxhYj0iVGltZSBmcm9tIExhbmRtYXJrIFRpbWUgcG9pbnQgKE1vbnRocykiLCBsZWdlbmQubGFicz1jKCJjdEROQSBOZWdhdGl2ZSIsICJjdEROQSBQb3NpdGl2ZSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsIDI0KSkKY2lyY19kYXRhJGN0RE5BLk1SRCA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLk1SRCwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLk1SRCwgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LGRhdGEgPSBjaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmNveF9maXRfc3VtbWFyeSA8LSBzdW1tYXJ5KGNveF9maXQpCgojIEV4dHJhY3QgdmFsdWVzIGZvciBIUiwgOTUlIENJLCBhbmQgcC12YWx1ZQpIUiA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzJdCmxvd2VyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFszXQp1cHBlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbNF0KcF92YWx1ZSA8LSBjb3hfZml0X3N1bW1hcnkkY29lZmZpY2llbnRzWzVdCmxhYmVsX3RleHQgPC0gcGFzdGUwKCJIUiA9ICIsIHJvdW5kKEhSLCAyKSwgIiAoIiwgcm91bmQobG93ZXJfQ0ksIDIpLCAiLSIsIHJvdW5kKHVwcGVyX0NJLCAyKSwgIik7IHAgPSAiLCByb3VuZChwX3ZhbHVlLCAzKSkKcHJpbnQobGFiZWxfdGV4dCkKYGBgCgoKCgojT1MgYnkgY3RETkEgYXQgdGhlIE1SRCBXaW5kb3cgLSBOQUMgcHRzIG9ubHkKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSROQUM9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5NUkQhPSIiLF0KY2lyY19kYXRhJEZVLm1vbnRocz1jaXJjX2RhdGEkRlUubW9udGhzLTMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkRlUubW9udGhzPj0wLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KX5jdEROQS5NUkQsIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5NUkQsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT02LCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgTVJEIHdpbmRvdyB8IE5BQyB0cmVhdGVkIiwgeWxhYj0gIk92ZXJhbGwgU3Vydml2YWwiLCB4bGFiPSJUaW1lIGZyb20gTGFuZG1hcmsgVGltZSBwb2ludCAoTW9udGhzKSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BIE5lZ2F0aXZlIiwgImN0RE5BIFBvc2l0aXZlIiksIGxlZ2VuZC50aXRsZT0iIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXM9IGMoMCwgMjQpKQpjaXJjX2RhdGEkY3RETkEuTVJEIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuTVJELCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuTVJELCBkYXRhPWNpcmNfZGF0YSkgCmdnZm9yZXN0KGNveF9maXQsZGF0YSA9IGNpcmNfZGF0YSkgCnN1bW1hcnkoY294X2ZpdCkKY294X2ZpdF9zdW1tYXJ5IDwtIHN1bW1hcnkoY294X2ZpdCkKCiMgRXh0cmFjdCB2YWx1ZXMgZm9yIEhSLCA5NSUgQ0ksIGFuZCBwLXZhbHVlCkhSIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbMl0KbG93ZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzNdCnVwcGVyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFs0XQpwX3ZhbHVlIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbNV0KbGFiZWxfdGV4dCA8LSBwYXN0ZTAoIkhSID0gIiwgcm91bmQoSFIsIDIpLCAiICgiLCByb3VuZChsb3dlcl9DSSwgMiksICItIiwgcm91bmQodXBwZXJfQ0ksIDIpLCAiKTsgcCA9ICIsIHJvdW5kKHBfdmFsdWUsIDMpKQpwcmludChsYWJlbF90ZXh0KQpgYGAKCgoKCgojUkZTIGJ5IGN0RE5BIGF0IHRoZSBNUkQgV2luZG93ICYgeXBUCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuTVJEIT0iIixdCmNpcmNfZGF0YSRERlMubW9udGhzPWNpcmNfZGF0YSRERlMubW9udGhzLTMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkREZTLm1vbnRocz49MCxdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKY2lyY19kYXRhJGN0RE5BLlN0YWdlLklJLlJpc2sgPC0gTkEgI2ZpcnN0IHdlIGNyZWF0ZSB0aGUgdmFyaWFibGUgZm9yIHRoZSBjdEROQSAmIE5BQyBjb21iaW5hdGlvbiwgYW5kIHdlIGFzc2lnbiB2YWx1ZXMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YSAlPiUKICBtdXRhdGUoY3RETkEuU3RhZ2UuSUkuVE5NID0gY2FzZV93aGVuKAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiBwVC5TdGFnZSA9PSAiVDEtVDMiIH4gMSwKICAgIGN0RE5BLk1SRCA9PSAiUE9TSVRJVkUiICYgcFQuU3RhZ2UgPT0gIlQxLVQzIiB+IDIsCiAgICBjdEROQS5NUkQgPT0gIk5FR0FUSVZFIiAmIHBULlN0YWdlID09ICJUNCIgfiAzLAogICAgY3RETkEuTVJEID09ICJQT1NJVElWRSIgJiBwVC5TdGFnZSA9PSAiVDQiIH4gNAogICkpCgpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5UTk0hPSIiLF0Kc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KX5jdEROQS5TdGFnZS5JSS5UTk0sIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInB1cnBsZSIsICJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIE1SRCAmIHlwVE4iLCB5bGFiPSAiUmVjdXJyZW5jZS1GcmVlIFN1cnZpdmFsIiwgeGxhYj0iVGltZSBmcm9tIExhbmRtYXJrIFRpbWUgcG9pbnQgKE1vbnRocykiLCBsZWdlbmQubGFicz1jKCJjdEROQSgtKSAmIFQxLVQzIiwgImN0RE5BKCspICYgVDEtVDMiLCAiY3RETkEoLSkgJiBUNCIsICJjdEROQSgrKSAmIFQ0IiksIGxlZ2VuZC50aXRsZT0iIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXM9IGMoMCwyNCkpCmNpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5UTk0gPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5UTk0sIGxldmVscz1jKCIxIiwiMiIsIjMiLCI0IiksIGxhYmVscyA9IGMoImN0RE5BKC0pICYgVDEtVDMiLCAiY3RETkEoKykgJiBUMS1UMyIsICJjdEROQSgtKSAmIFQ0IiwgImN0RE5BKCspICYgVDQiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YT1jaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCgojUmVwZWF0IGFuYWx5c2lzIHRvIGNvbXBhcmUgY3RETkEgTVJEICgtKSB2cyAoKykgaW4gVDQKcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLk1SRCE9IiIsXQpjaXJjX2RhdGEkREZTLm1vbnRocz1jaXJjX2RhdGEkREZTLm1vbnRocy0zCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJERGUy5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCmNpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5SaXNrIDwtIE5BICNmaXJzdCB3ZSBjcmVhdGUgdGhlIHZhcmlhYmxlIGZvciB0aGUgY3RETkEgJiBOQUMgY29tYmluYXRpb24sIGFuZCB3ZSBhc3NpZ24gdmFsdWVzCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lCiAgbXV0YXRlKGN0RE5BLlN0YWdlLklJLlROTSA9IGNhc2Vfd2hlbigKICAgIGN0RE5BLk1SRCA9PSAiTkVHQVRJVkUiICYgcFQuU3RhZ2UgPT0gIlQxLVQzIiB+IDEsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIHBULlN0YWdlID09ICJUMS1UMyIgfiAyLAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiBwVC5TdGFnZSA9PSAiVDQiIH4gMywKICAgIGN0RE5BLk1SRCA9PSAiUE9TSVRJVkUiICYgcFQuU3RhZ2UgPT0gIlQ0IiB+IDQKICApKQoKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIT0iIixdCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCl+Y3RETkEuU3RhZ2UuSUkuVE5NLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5TdGFnZS5JSS5UTk0sIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT0xMiwgcGFsZXR0ZT1jKCJibHVlIiwiZ3JlZW4iLCJwdXJwbGUiLCAicmVkIiksIHRpdGxlPSJSRlMgLSBjdEROQSBNUkQgJiB5cFROIiwgeWxhYj0gIlJlY3VycmVuY2UtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9IlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgbGVnZW5kLmxhYnM9YygiY3RETkEoLSkgJiBUMS1UMyIsICJjdEROQSgrKSAmIFQxLVQzIiwgImN0RE5BKC0pICYgVDQiLCAiY3RETkEoKykgJiBUNCIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsMjQpKQpjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NLCBsZXZlbHM9YygiMiIsIjQiLCIxIiwiMyIpKQpjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuU3RhZ2UuSUkuVE5NLCBkYXRhPWNpcmNfZGF0YSkgCnN1bW1hcnkoY294X2ZpdCkKYGBgCgojT1MgYnkgY3RETkEgYXQgdGhlIE1SRCBXaW5kb3cgJiB5cFQKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5NUkQhPSIiLF0KY2lyY19kYXRhJEZVLm1vbnRocz1jaXJjX2RhdGEkRlUubW9udGhzLTMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkRlUubW9udGhzPj0wLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuUmlzayA8LSBOQSAjZmlyc3Qgd2UgY3JlYXRlIHRoZSB2YXJpYWJsZSBmb3IgdGhlIGN0RE5BICYgTkFDIGNvbWJpbmF0aW9uLCBhbmQgd2UgYXNzaWduIHZhbHVlcwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5TdGFnZS5JSS5UTk0gPSBjYXNlX3doZW4oCiAgICBjdEROQS5NUkQgPT0gIk5FR0FUSVZFIiAmIHBULlN0YWdlID09ICJUMS1UMyIgfiAxLAogICAgY3RETkEuTVJEID09ICJQT1NJVElWRSIgJiBwVC5TdGFnZSA9PSAiVDEtVDMiIH4gMiwKICAgIGN0RE5BLk1SRCA9PSAiTkVHQVRJVkUiICYgcFQuU3RhZ2UgPT0gIlQ0IiB+IDMsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIHBULlN0YWdlID09ICJUNCIgfiA0CiAgKSkKCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLlN0YWdlLklJLlROTSE9IiIsXQpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRGVS5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJE9TLkV2ZW50KX5jdEROQS5TdGFnZS5JSS5UTk0sIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5TdGFnZS5JSS5UTk0sIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT0xMiwgcGFsZXR0ZT1jKCJibHVlIiwiZ3JlZW4iLCJwdXJwbGUiLCAicmVkIiksIHRpdGxlPSJPUyAtIGN0RE5BIE1SRCAmIHlwVE4iLCB5bGFiPSAiT3ZlcmFsbCBTdXJ2aXZhbCIsIHhsYWI9IlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgbGVnZW5kLmxhYnM9YygiY3RETkEoLSkgJiBUMS1UMyIsICJjdEROQSgrKSAmIFQxLVQzIiwgImN0RE5BKC0pICYgVDQiLCAiY3RETkEoKykgJiBUNCIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsMjQpKQpjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NLCBsZXZlbHM9YygiMSIsIjIiLCIzIiwiNCIpLCBsYWJlbHMgPSBjKCJjdEROQSgtKSAmIFQxLVQzIiwgImN0RE5BKCspICYgVDEtVDMiLCAiY3RETkEoLSkgJiBUNCIsICJjdEROQSgrKSAmIFQ0IikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5TdGFnZS5JSS5UTk0sIGRhdGE9Y2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQoKI1JlcGVhdCBhbmFseXNpcyB0byBjb21wYXJlIGN0RE5BIHBvc3QtTkFUICgtKSB2cyAoKykgaW4gVDQKcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLk1SRCE9IiIsXQpjaXJjX2RhdGEkRlUubW9udGhzPWNpcmNfZGF0YSRGVS5tb250aHMtMwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRGVS5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCmNpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5SaXNrIDwtIE5BICNmaXJzdCB3ZSBjcmVhdGUgdGhlIHZhcmlhYmxlIGZvciB0aGUgY3RETkEgJiBOQUMgY29tYmluYXRpb24sIGFuZCB3ZSBhc3NpZ24gdmFsdWVzCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGEgJT4lCiAgbXV0YXRlKGN0RE5BLlN0YWdlLklJLlROTSA9IGNhc2Vfd2hlbigKICAgIGN0RE5BLk1SRCA9PSAiTkVHQVRJVkUiICYgcFQuU3RhZ2UgPT0gIlQxLVQzIiB+IDEsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIHBULlN0YWdlID09ICJUMS1UMyIgfiAyLAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiBwVC5TdGFnZSA9PSAiVDQiIH4gMywKICAgIGN0RE5BLk1SRCA9PSAiUE9TSVRJVkUiICYgcFQuU3RhZ2UgPT0gIlQ0IiB+IDQKICApKQoKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIT0iIixdCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLlN0YWdlLklJLlROTSwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInB1cnBsZSIsICJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgTVJEICYgeXBUTiIsIHlsYWI9ICJPdmVyYWxsIFN1cnZpdmFsIFN1cnZpdmFsIiwgeGxhYj0iVGltZSBmcm9tIExhbmRtYXJrIFRpbWUgcG9pbnQgKE1vbnRocykiLCBsZWdlbmQubGFicz1jKCJjdEROQSgtKSAmIFQxLVQzIiwgImN0RE5BKCspICYgVDEtVDMiLCAiY3RETkEoLSkgJiBUNCIsICJjdEROQSgrKSAmIFQ0IiksIGxlZ2VuZC50aXRsZT0iIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXM9IGMoMCwyNCkpCmNpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5UTk0gPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5UTk0sIGxldmVscz1jKCIyIiwiNCIsIjEiLCIzIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5TdGFnZS5JSS5UTk0sIGRhdGE9Y2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpgYGAKCiNSRlMgYnkgY3RETkEgYXQgdGhlIE1SRCBXaW5kb3cgJiB5cE4KYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5NUkQhPSIiLF0KY2lyY19kYXRhJERGUy5tb250aHM9Y2lyY19kYXRhJERGUy5tb250aHMtMwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRERlMubW9udGhzPj0wLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuUmlzayA8LSBOQSAjZmlyc3Qgd2UgY3JlYXRlIHRoZSB2YXJpYWJsZSBmb3IgdGhlIGN0RE5BICYgTkFDIGNvbWJpbmF0aW9uLCBhbmQgd2UgYXNzaWduIHZhbHVlcwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5TdGFnZS5JSS5UTk0gPSBjYXNlX3doZW4oCiAgICBjdEROQS5NUkQgPT0gIk5FR0FUSVZFIiAmIHlwTlN0YXR1cyA9PSAiTjAiIH4gMSwKICAgIGN0RE5BLk1SRCA9PSAiUE9TSVRJVkUiICYgeXBOU3RhdHVzID09ICJOMCIgfiAyLAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiB5cE5TdGF0dXMgPT0gIk4xLU4zIiB+IDMsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIHlwTlN0YXR1cyA9PSAiTjEtTjMiIH4gNAogICkpCgpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5TdGFnZS5JSS5UTk0hPSIiLF0Kc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KX5jdEROQS5TdGFnZS5JSS5UTk0sIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInB1cnBsZSIsICJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIE1SRCAmIHlwTiIsIHlsYWI9ICJSZWN1cnJlbmNlLUZyZWUgU3Vydml2YWwiLCB4bGFiPSJUaW1lIGZyb20gTGFuZG1hcmsgVGltZSBwb2ludCAoTW9udGhzKSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BKC0pICYgeXBOMCIsICJjdEROQSgrKSAmIHlwTjAiLCAiY3RETkEoLSkgJiB5cE4rIiwgImN0RE5BKCspICYgeXBOKyIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsMjQpKQpjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NLCBsZXZlbHM9YygiMSIsIjIiLCIzIiwiNCIpLCBsYWJlbHMgPSBjKCJjdEROQSgtKSAmIHlwTjAiLCAiY3RETkEoKykgJiB5cE4wIiwgImN0RE5BKC0pICYgeXBOKyIsICJjdEROQSgrKSAmIHlwTisiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YT1jaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmBgYAoKI09TIGJ5IGN0RE5BIGF0IHRoZSBNUkQgV2luZG93ICYgeXBOCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuTVJEIT0iIixdCmNpcmNfZGF0YSRGVS5tb250aHM9Y2lyY19kYXRhJEZVLm1vbnRocy0zCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEZVLm1vbnRocz49MCxdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKY2lyY19kYXRhJGN0RE5BLlN0YWdlLklJLlJpc2sgPC0gTkEgI2ZpcnN0IHdlIGNyZWF0ZSB0aGUgdmFyaWFibGUgZm9yIHRoZSBjdEROQSAmIE5BQyBjb21iaW5hdGlvbiwgYW5kIHdlIGFzc2lnbiB2YWx1ZXMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YSAlPiUKICBtdXRhdGUoY3RETkEuU3RhZ2UuSUkuVE5NID0gY2FzZV93aGVuKAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiB5cE5TdGF0dXMgPT0gIk4wIiB+IDEsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIHlwTlN0YXR1cyA9PSAiTjAiIH4gMiwKICAgIGN0RE5BLk1SRCA9PSAiTkVHQVRJVkUiICYgeXBOU3RhdHVzID09ICJOMS1OMyIgfiAzLAogICAgY3RETkEuTVJEID09ICJQT1NJVElWRSIgJiB5cE5TdGF0dXMgPT0gIk4xLU4zIiB+IDQKICApKQoKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIT0iIixdCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLlN0YWdlLklJLlROTSwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInB1cnBsZSIsICJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgTVJEICYgeXBOIiwgeWxhYj0gIk92ZXJhbGwgU3Vydml2YWwiLCB4bGFiPSJUaW1lIGZyb20gTGFuZG1hcmsgVGltZSBwb2ludCAoTW9udGhzKSIsIGxlZ2VuZC5sYWJzPWMoImN0RE5BKC0pICYgeXBOMCIsICJjdEROQSgrKSAmIHlwTjAiLCAiY3RETkEoLSkgJiB5cE4rIiwgImN0RE5BKCspICYgeXBOKyIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsMjQpKQpjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuU3RhZ2UuSUkuVE5NLCBsZXZlbHM9YygiMSIsIjIiLCIzIiwiNCIpLCBsYWJlbHMgPSBjKCJjdEROQSgtKSAmIHlwTjAiLCAiY3RETkEoKykgJiB5cE4wIiwgImN0RE5BKC0pICYgeXBOKyIsICJjdEROQSgrKSAmIHlwTisiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLlN0YWdlLklJLlROTSwgZGF0YT1jaXJjX2RhdGEpIApzdW1tYXJ5KGNveF9maXQpCmBgYAoKI1JGUyBieSBjdEROQSBhdCB0aGUgTVJEIFdpbmRvdyAmIFRSRyBjb21iaW5hdGlvbiAoVFJHMS8yLzMgdnMgVFJHMy01KQpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSRERlMubW9udGhzPWNpcmNfZGF0YSRERlMubW9udGhzLTMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkREZTLm1vbnRocz49MCxdCmNpcmNfZGF0YSRUUkcgPC0gZmFjdG9yKGNpcmNfZGF0YSRUUkcsIGxldmVscyA9IGMoIlRSRzEvMi8zIiwgIlRSRzQvNSIpKQoKY2lyY19kYXRhJGN0RE5BLnBDUiA8LSBOQQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5wQ1IgPSBjYXNlX3doZW4oCiAgICBjdEROQS5NUkQgPT0gIk5FR0FUSVZFIiAmIFRSRyA9PSAiVFJHMS8yLzMiIH4gIjEiLAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiBUUkcgPT0gIlRSRzQvNSIgfiAiMiIsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIFRSRyA9PSAiVFJHNC81IiB+ICIzIgogICkpCgpjaXJjX2RhdGEgPC0gY2lyY19kYXRhWyFpcy5uYShjaXJjX2RhdGEkY3RETkEucENSKSxdCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCl+Y3RETkEucENSLCBkYXRhID0gY2lyY19kYXRhKQpzdXJ2X29iamVjdCA8LVN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5wQ1IsIGRhdGEgPSBjaXJjX2RhdGEsY29uZi5pbnQ9MC45NSxjb25mLnR5cGU9ImxvZy1sb2ciKSAKZ2dzdXJ2cGxvdChLTV9jdXJ2ZSwgZGF0YSA9IGNpcmNfZGF0YSwgcHZhbCA9IEZBTFNFLCBjb25mLmludCA9IEZBTFNFLCByaXNrLnRhYmxlID0gVFJVRSwgYnJlYWsudGltZS5ieT0xMiwgcGFsZXR0ZT1jKCJibHVlIiwiZ3JlZW4iLCJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIE1SRC9UUkciLCB5bGFiPSAiUmVjdXJyZW5jZS1GcmVlIFN1cnZpdmFsIiwgeGxhYj0iVGltZSBmcm9tIExhbmRtYXJrIFRpbWUgcG9pbnQgKE1vbnRocykiLCBsZWdlbmQubGFicz1jKCJUUkcxLzIvMyBjdEROQSAoLSkiLCJUUkc0LzUgY3RETkEgKC0pIiwgIlRSRzQvNSBjdEROQSAoKykiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLDI0KSkKY2lyY19kYXRhJGN0RE5BLnBDUiA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLnBDUiwgbGV2ZWxzPWMoIjEiLCIyIiwiMyIpLCBsYWJlbHM9YygiVFJHMS8yLzMgY3RETkEgKC0pIiwiVFJHNC81IGN0RE5BICgtKSIsICJUUkc0LzUgY3RETkEgKCspIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5wQ1IsIGRhdGE9Y2lyY19kYXRhKQpzdW1tYXJ5KGNveF9maXQpCmBgYAoKCiNPUyBieSBjdEROQSBhdCB0aGUgTVJEIFdpbmRvdyAmIFRSRyBjb21iaW5hdGlvbiAoVFJHMS8yLzMgdnMgVFJHMy01KQpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSRGVS5tb250aHM9Y2lyY19kYXRhJEZVLm1vbnRocy0zCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEZVLm1vbnRocz49MCxdCmNpcmNfZGF0YSRUUkcgPC0gZmFjdG9yKGNpcmNfZGF0YSRUUkcsIGxldmVscyA9IGMoIlRSRzEvMi8zIiwgIlRSRzQvNSIpKQoKY2lyY19kYXRhJGN0RE5BLnBDUiA8LSBOQQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5wQ1IgPSBjYXNlX3doZW4oCiAgICBjdEROQS5NUkQgPT0gIk5FR0FUSVZFIiAmIFRSRyA9PSAiVFJHMS8yLzMiIH4gIjEiLAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiBUUkcgPT0gIlRSRzQvNSIgfiAiMiIsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiAmIFRSRyA9PSAiVFJHNC81IiB+ICIzIgogICkpCgpjaXJjX2RhdGEgPC0gY2lyY19kYXRhWyFpcy5uYShjaXJjX2RhdGEkY3RETkEucENSKSxdCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLnBDUiwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLnBDUiwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJncmVlbiIsInJlZCIpLCB0aXRsZT0iT1MgLSBjdEROQSBNUkQvVFJHIiwgeWxhYj0gIk92ZXJhbGwgU3Vydml2YWwiLCB4bGFiPSJUaW1lIGZyb20gTGFuZG1hcmsgVGltZSBwb2ludCAoTW9udGhzKSIsIGxlZ2VuZC5sYWJzPWMoIlRSRzEvMi8zIGN0RE5BICgtKSIsIlRSRzQvNSBjdEROQSAoLSkiLCAiVFJHNC81IGN0RE5BICgrKSIpLCBsZWdlbmQudGl0bGU9IiIpCnN1bW1hcnkoS01fY3VydmUsIHRpbWVzPSBjKDAsMjQpKQpjaXJjX2RhdGEkY3RETkEucENSIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEucENSLCBsZXZlbHM9YygiMSIsIjIiLCIzIiksIGxhYmVscz1jKCJUUkcxLzIvMyBjdEROQSAoLSkiLCJUUkc0LzUgY3RETkEgKC0pIiwgIlRSRzQvNSBjdEROQSAoKykiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLnBDUiwgZGF0YT1jaXJjX2RhdGEpCnN1bW1hcnkoY294X2ZpdCkKYGBgCgoKI1JGUyBieSBjdEROQSBhdCB0aGUgTVJEIFdpbmRvdyAmIHlwVE4gQ2hhcmFjdGVyaXN0aWNzCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkID09IFRSVUUsXQpjaXJjX2RhdGEkREZTLm1vbnRocyA8LSBjaXJjX2RhdGEkREZTLm1vbnRocyAtIDMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkREZTLm1vbnRocyA+PSAwLF0KY2lyY19kYXRhJGN0RE5BLnBDUiA8LSBOQQoKIyBEZWZpbmUgbmV3IGNhdGVnb3JpZXMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YSAlPiUKICBtdXRhdGUoY3RETkEucENSID0gY2FzZV93aGVuKAogICAgY3RETkEuTVJEID09ICJORUdBVElWRSIgJiBwVC5TdGFnZT09IlQxLVQzIiAmIHlwTlN0YXR1cyA9PSAiTjAiIH4gIjEiLAogICAgY3RETkEuTVJEID09ICJQT1NJVElWRSIgfCBwVC5TdGFnZSA9PSAiVDQiIHwgeXBOU3RhdHVzID09ICJOMS1OMyIgfiAiMiIKICApKQoKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVshaXMubmEoY2lyY19kYXRhJGN0RE5BLnBDUiksXQpzdXJ2Zml0KFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpfmN0RE5BLnBDUiwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC0gU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLnBDUiwgZGF0YSA9IGNpcmNfZGF0YSwgY29uZi5pbnQgPSAwLjk1LCBjb25mLnR5cGUgPSAibG9nLWxvZyIpCmdnc3VydnBsb3QoS01fY3VydmUsIGRhdGEgPSBjaXJjX2RhdGEsIHB2YWwgPSBGQUxTRSwgY29uZi5pbnQgPSBGQUxTRSwgcmlzay50YWJsZSA9IFRSVUUsIAogICAgICAgICAgIGJyZWFrLnRpbWUuYnkgPSAxMiwgcGFsZXR0ZSA9IGMoImJsdWUiLCAicmVkIiksIAogICAgICAgICAgIHRpdGxlID0gIlJGUyAtIGN0RE5BIE1SRC9DbGluaWNhbCBDaGFyYWN0ZXJpc3RpY3MiLCAKICAgICAgICAgICB5bGFiID0gIlJlY3VycmVuY2UtRnJlZSBTdXJ2aXZhbCIsIHhsYWIgPSAiVGltZSBmcm9tIExhbmRtYXJrIFRpbWUgcG9pbnQgKE1vbnRocykiLCAKICAgICAgICAgICBsZWdlbmQubGFicyA9IGMoIk1SRCBuZWcsIFQxLVQzLCBOMCIsICJNUkQgcG9zIG9yIFQ0IG9yIE4xLU4zIiksIAogICAgICAgICAgIGxlZ2VuZC50aXRsZSA9ICIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcyA9IGMoMCwgMjQpKQpjaXJjX2RhdGEkY3RETkEucENSIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEucENSLCBsZXZlbHM9YygiMSIsIjIiKSwgbGFiZWxzPWMoIk1SRCBuZWcsIFQxLVQzLCBOMCIsIk1SRCBwb3Mgb3IgVDQgb3IgTjEtTjMiKSkKY294X2ZpdCA8LSBjb3hwaChzdXJ2X29iamVjdCB+IGN0RE5BLnBDUiwgZGF0YT1jaXJjX2RhdGEpCnN1bW1hcnkoY294X2ZpdCkKY294X2ZpdF9zdW1tYXJ5IDwtIHN1bW1hcnkoY294X2ZpdCkKCiMgRXh0cmFjdCB2YWx1ZXMgZm9yIEhSLCA5NSUgQ0ksIGFuZCBwLXZhbHVlCkhSIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbMl0KbG93ZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzNdCnVwcGVyX0NJIDwtIGNveF9maXRfc3VtbWFyeSRjb25mLmludFs0XQpwX3ZhbHVlIDwtIGNveF9maXRfc3VtbWFyeSRjb2VmZmljaWVudHNbNV0KbGFiZWxfdGV4dCA8LSBwYXN0ZTAoIkhSID0gIiwgcm91bmQoSFIsIDIpLCAiICgiLCByb3VuZChsb3dlcl9DSSwgMiksICItIiwgcm91bmQodXBwZXJfQ0ksIDIpLCAiKTsgcCA9ICIsIHJvdW5kKHBfdmFsdWUsIDMpKQpwcmludChsYWJlbF90ZXh0KQpgYGAKCiNPUyBieSBjdEROQSBhdCB0aGUgTVJEIFdpbmRvdyAmIHlwVE4gQ2hhcmFjdGVyaXN0aWNzCmBgYHtyfQojIENsZWFyIHdvcmtzcGFjZSBhbmQgc2V0IHdvcmtpbmcgZGlyZWN0b3J5CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQgPT0gVFJVRSxdCmNpcmNfZGF0YSRGVS5tb250aHMgPC0gY2lyY19kYXRhJEZVLm1vbnRocyAtIDMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkRlUubW9udGhzID49IDAsXQpjaXJjX2RhdGEkY3RETkEucENSIDwtIE5BCgojIERlZmluZSBuZXcgY2F0ZWdvcmllcwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhICU+JQogIG11dGF0ZShjdEROQS5wQ1IgPSBjYXNlX3doZW4oCiAgICBjdEROQS5NUkQgPT0gIk5FR0FUSVZFIiAmIHBULlN0YWdlPT0iVDEtVDMiICYgeXBOU3RhdHVzID09ICJOMCIgfiAiMSIsCiAgICBjdEROQS5NUkQgPT0gIlBPU0lUSVZFIiB8IHBULlN0YWdlID09ICJUNCIgfCB5cE5TdGF0dXMgPT0gIk4xLU4zIiB+ICIyIgogICkpCgpjaXJjX2RhdGEgPC0gY2lyY19kYXRhWyFpcy5uYShjaXJjX2RhdGEkY3RETkEucENSKSxdCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLnBDUiwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC0gU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpCktNX2N1cnZlIDwtIHN1cnZmaXQoc3Vydl9vYmplY3QgfiBjdEROQS5wQ1IsIGRhdGEgPSBjaXJjX2RhdGEsIGNvbmYuaW50ID0gMC45NSwgY29uZi50eXBlID0gImxvZy1sb2ciKQpnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCAKICAgICAgICAgICBicmVhay50aW1lLmJ5ID0gMTIsIHBhbGV0dGUgPSBjKCJibHVlIiwgInJlZCIpLCAKICAgICAgICAgICB0aXRsZSA9ICJPUyAtIGN0RE5BIE1SRC9DbGluaWNhbCBDaGFyYWN0ZXJpc3RpY3MiLCAKICAgICAgICAgICB5bGFiID0gIk92ZXJhbGwgU3Vydml2YWwiLCB4bGFiID0gIlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgCiAgICAgICAgICAgbGVnZW5kLmxhYnMgPSBjKCJNUkQgbmVnLCBUMS1UMywgTjAiLCAiTVJEIHBvcyBvciBUNCBvciBOMS1OMyIpLCAKICAgICAgICAgICBsZWdlbmQudGl0bGUgPSAiIikKc3VtbWFyeShLTV9jdXJ2ZSwgdGltZXMgPSBjKDAsIDI0KSkKY2lyY19kYXRhJGN0RE5BLnBDUiA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLnBDUiwgbGV2ZWxzPWMoIjEiLCIyIiksIGxhYmVscz1jKCJNUkQgbmVnLCBUMS1UMywgTjAiLCJNUkQgcG9zIG9yIFQ0IG9yIE4xLU4zIikpCmNveF9maXQgPC0gY294cGhmKHN1cnZfb2JqZWN0IH4gY3RETkEucENSLCBkYXRhPWNpcmNfZGF0YSkKc3VtbWFyeShjb3hfZml0KQpgYGAKCiNNdWx0aXZhcmlhdGUgY294IHJlZ3Jlc3Npb24gZm9yIFJGUyAtIGN0RE5BIE1SRCBXaW5kb3cKYGBge3J9CnJtKGxpc3Q9bHMoKSkKc2V0d2QoIn4vRG93bmxvYWRzIikKY2lyY19kYXRhIDwtIHJlYWQuY3N2KCJQTEFHQVNUX0NsaW5pY2FsIERhdGEuY3N2IikKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkSW5jbHVkZWQ9PVRSVUUsXQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRjdEROQS5NUkQhPSIiLF0KY2lyY19kYXRhZGYgPC0gYXMuZGF0YS5mcmFtZShjaXJjX2RhdGEpCgpjaXJjX2RhdGEkY3RETkEuTVJEIDwtIGZhY3RvcihjaXJjX2RhdGEkY3RETkEuTVJELCBsZXZlbHM9YygiTkVHQVRJVkUiLCJQT1NJVElWRSIpLCBsYWJlbHMgPSBjKCJOZWdhdGl2ZSIsICJQb3NpdGl2ZSIpKQpjaXJjX2RhdGEkUHJpbVNpdGUgPC0gZmFjdG9yKGNpcmNfZGF0YSRQcmltU2l0ZSwgbGV2ZWxzPWMoIlN0b21hY2giLCJHL0oiKSkKY2lyY19kYXRhJEdlbmRlciA8LSBmYWN0b3IoY2lyY19kYXRhJEdlbmRlciwgbGV2ZWxzPWMoIk1hbGUiLCJGZW1hbGUiKSkKY2lyY19kYXRhJEFnZS5Hcm91cCA8LSBmYWN0b3IoY2lyY19kYXRhJEFnZS5Hcm91cCwgbGV2ZWxzPWMoIjIiLCIxIiksIGxhYmVscyA9IGMoIj43MCIsICLiiaQ3MCIpKQpjaXJjX2RhdGEkcFQuU3RhZ2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRwVC5TdGFnZSwgbGV2ZWxzPWMoIlQxLVQzIiwiVDQiKSkKY2lyY19kYXRhJHlwTlN0YXR1cyA8LSBmYWN0b3IoY2lyY19kYXRhJHlwTlN0YXR1cywgbGV2ZWxzPWMoIk4wIiwiTjEtTjMiKSkKY2lyY19kYXRhJFRSRyA8LSBmYWN0b3IoY2lyY19kYXRhJFRSRywgbGV2ZWxzPWMoIlRSRzEvMi8zIiwiVFJHNC81IikpCnN1cnZfb2JqZWN0IDwtIFN1cnYodGltZSA9IGNpcmNfZGF0YSRERlMubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRERlMuRXZlbnQpIApjb3hfZml0IDwtIGNveHBoKHN1cnZfb2JqZWN0IH4gY3RETkEuTVJEICsgUHJpbVNpdGUgKyBwVC5TdGFnZSArIHlwTlN0YXR1cyArIFRSRywgZGF0YT1jaXJjX2RhdGEpIApnZ2ZvcmVzdChjb3hfZml0LCBkYXRhID0gY2lyY19kYXRhLCBtYWluID0gIk11bHRpdmFyaWF0ZSBSZWdyZXNzaW9uIE1vZGVsIGZvciBSRlMiLCByZWZMYWJlbCA9ICJSZWZlcmVuY2UgR3JvdXAiKQp0ZXN0LnBoIDwtIGNveC56cGgoY294X2ZpdCkKYGBgCgoKI011bHRpdmFyaWF0ZSBjb3ggcmVncmVzc2lvbiBmb3IgT1MgLSBjdEROQSBNUkQgV2luZG93CmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuTVJEIT0iIixdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKY2lyY19kYXRhJGN0RE5BLk1SRCA8LSBmYWN0b3IoY2lyY19kYXRhJGN0RE5BLk1SRCwgbGV2ZWxzPWMoIk5FR0FUSVZFIiwiUE9TSVRJVkUiKSwgbGFiZWxzID0gYygiTmVnYXRpdmUiLCAiUG9zaXRpdmUiKSkKY2lyY19kYXRhJFByaW1TaXRlIDwtIGZhY3RvcihjaXJjX2RhdGEkUHJpbVNpdGUsIGxldmVscz1jKCJTdG9tYWNoIiwiRy9KIikpCmNpcmNfZGF0YSRHZW5kZXIgPC0gZmFjdG9yKGNpcmNfZGF0YSRHZW5kZXIsIGxldmVscz1jKCJNYWxlIiwiRmVtYWxlIikpCmNpcmNfZGF0YSRBZ2UuR3JvdXAgPC0gZmFjdG9yKGNpcmNfZGF0YSRBZ2UuR3JvdXAsIGxldmVscz1jKCIyIiwiMSIpLCBsYWJlbHMgPSBjKCI+NzAiLCAi4omkNzAiKSkKY2lyY19kYXRhJHBULlN0YWdlIDwtIGZhY3RvcihjaXJjX2RhdGEkcFQuU3RhZ2UsIGxldmVscz1jKCJUMS1UMyIsIlQ0IikpCmNpcmNfZGF0YSR5cE5TdGF0dXMgPC0gZmFjdG9yKGNpcmNfZGF0YSR5cE5TdGF0dXMsIGxldmVscz1jKCJOMCIsIk4xLU4zIikpCmNpcmNfZGF0YSRUUkcgPC0gZmFjdG9yKGNpcmNfZGF0YSRUUkcsIGxldmVscz1jKCJUUkcxLzIvMyIsIlRSRzQvNSIpKQpzdXJ2X29iamVjdCA8LSBTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkgCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5NUkQgKyBQcmltU2l0ZSArIHBULlN0YWdlICsgeXBOU3RhdHVzICsgVFJHLCBkYXRhPWNpcmNfZGF0YSkgCmdnZm9yZXN0KGNveF9maXQsIGRhdGEgPSBjaXJjX2RhdGEsIG1haW4gPSAiTXVsdGl2YXJpYXRlIFJlZ3Jlc3Npb24gTW9kZWwgZm9yIE9TIiwgcmVmTGFiZWwgPSAiUmVmZXJlbmNlIEdyb3VwIikKdGVzdC5waCA8LSBjb3guenBoKGNveF9maXQpCmBgYAoKCiNSRlMgYnkgY3RETkEgYXQgdGhlIFN1cnZlaWxsYW5jZSBXaW5kb3cgLSBhbGwgc3RhZ2VzCmBgYHtyfQpybShsaXN0PWxzKCkpCnNldHdkKCJ+L0Rvd25sb2FkcyIpCmNpcmNfZGF0YSA8LSByZWFkLmNzdigiUExBR0FTVF9DbGluaWNhbCBEYXRhLmNzdiIpCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJEluY2x1ZGVkPT1UUlVFLF0KY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkY3RETkEuc3VydmVpbGxhbmNlIT0iIixdCmNpcmNfZGF0YSRERlMubW9udGhzPWNpcmNfZGF0YSRERlMubW9udGhzLTMKY2lyY19kYXRhIDwtIGNpcmNfZGF0YVtjaXJjX2RhdGEkREZTLm1vbnRocz49MCxdCmNpcmNfZGF0YWRmIDwtIGFzLmRhdGEuZnJhbWUoY2lyY19kYXRhKQoKc3VydmZpdChTdXJ2KHRpbWUgPSBjaXJjX2RhdGEkREZTLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkREZTLkV2ZW50KX5jdEROQS5zdXJ2ZWlsbGFuY2UsIGRhdGEgPSBjaXJjX2RhdGEpCnN1cnZfb2JqZWN0IDwtU3Vydih0aW1lID0gY2lyY19kYXRhJERGUy5tb250aHMsIGV2ZW50ID0gY2lyY19kYXRhJERGUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLnN1cnZlaWxsYW5jZSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9IlJGUyAtIGN0RE5BIFN1cnZlaWxsYW5jZSB3aW5kb3cgfCBBbGwgcHRzIiwgeWxhYj0gIlJlY3VycmVuY2UtRnJlZSBTdXJ2aXZhbCIsIHhsYWI9IlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLCAyNCkpCmNpcmNfZGF0YSRjdEROQS5zdXJ2ZWlsbGFuY2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5zdXJ2ZWlsbGFuY2UsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5zdXJ2ZWlsbGFuY2UsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoKI09TIGJ5IGN0RE5BIGF0IHRoZSBTdXJ2ZWlsbGFuY2UgV2luZG93IC0gYWxsIHN0YWdlcwpgYGB7cn0Kcm0obGlzdD1scygpKQpzZXR3ZCgifi9Eb3dubG9hZHMiKQpjaXJjX2RhdGEgPC0gcmVhZC5jc3YoIlBMQUdBU1RfQ2xpbmljYWwgRGF0YS5jc3YiKQpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRJbmNsdWRlZD09VFJVRSxdCmNpcmNfZGF0YSA8LSBjaXJjX2RhdGFbY2lyY19kYXRhJGN0RE5BLnN1cnZlaWxsYW5jZSE9IiIsXQpjaXJjX2RhdGEkRlUubW9udGhzPWNpcmNfZGF0YSRGVS5tb250aHMtMwpjaXJjX2RhdGEgPC0gY2lyY19kYXRhW2NpcmNfZGF0YSRGVS5tb250aHM+PTAsXQpjaXJjX2RhdGFkZiA8LSBhcy5kYXRhLmZyYW1lKGNpcmNfZGF0YSkKCnN1cnZmaXQoU3Vydih0aW1lID0gY2lyY19kYXRhJEZVLm1vbnRocywgZXZlbnQgPSBjaXJjX2RhdGEkT1MuRXZlbnQpfmN0RE5BLnN1cnZlaWxsYW5jZSwgZGF0YSA9IGNpcmNfZGF0YSkKc3Vydl9vYmplY3QgPC1TdXJ2KHRpbWUgPSBjaXJjX2RhdGEkRlUubW9udGhzLCBldmVudCA9IGNpcmNfZGF0YSRPUy5FdmVudCkKS01fY3VydmUgPC0gc3VydmZpdChzdXJ2X29iamVjdCB+IGN0RE5BLnN1cnZlaWxsYW5jZSwgZGF0YSA9IGNpcmNfZGF0YSxjb25mLmludD0wLjk1LGNvbmYudHlwZT0ibG9nLWxvZyIpIApnZ3N1cnZwbG90KEtNX2N1cnZlLCBkYXRhID0gY2lyY19kYXRhLCBwdmFsID0gRkFMU0UsIGNvbmYuaW50ID0gRkFMU0UsIHJpc2sudGFibGUgPSBUUlVFLCBicmVhay50aW1lLmJ5PTEyLCBwYWxldHRlPWMoImJsdWUiLCJyZWQiKSwgdGl0bGU9Ik9TIC0gY3RETkEgU3VydmVpbGxhbmNlIHdpbmRvdyB8IEFsbCBwdHMiLCB5bGFiPSAiT3ZlcmFsbCBTdXJ2aXZhbCIsIHhsYWI9IlRpbWUgZnJvbSBMYW5kbWFyayBUaW1lIHBvaW50IChNb250aHMpIiwgbGVnZW5kLmxhYnM9YygiY3RETkEgTmVnYXRpdmUiLCAiY3RETkEgUG9zaXRpdmUiKSwgbGVnZW5kLnRpdGxlPSIiKQpzdW1tYXJ5KEtNX2N1cnZlLCB0aW1lcz0gYygwLCAyNCkpCmNpcmNfZGF0YSRjdEROQS5zdXJ2ZWlsbGFuY2UgPC0gZmFjdG9yKGNpcmNfZGF0YSRjdEROQS5zdXJ2ZWlsbGFuY2UsIGxldmVscz1jKCJORUdBVElWRSIsIlBPU0lUSVZFIikpCmNveF9maXQgPC0gY294cGgoc3Vydl9vYmplY3QgfiBjdEROQS5zdXJ2ZWlsbGFuY2UsIGRhdGE9Y2lyY19kYXRhKSAKZ2dmb3Jlc3QoY294X2ZpdCxkYXRhID0gY2lyY19kYXRhKSAKc3VtbWFyeShjb3hfZml0KQpjb3hfZml0X3N1bW1hcnkgPC0gc3VtbWFyeShjb3hfZml0KQoKIyBFeHRyYWN0IHZhbHVlcyBmb3IgSFIsIDk1JSBDSSwgYW5kIHAtdmFsdWUKSFIgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1syXQpsb3dlcl9DSSA8LSBjb3hfZml0X3N1bW1hcnkkY29uZi5pbnRbM10KdXBwZXJfQ0kgPC0gY294X2ZpdF9zdW1tYXJ5JGNvbmYuaW50WzRdCnBfdmFsdWUgPC0gY294X2ZpdF9zdW1tYXJ5JGNvZWZmaWNpZW50c1s1XQpsYWJlbF90ZXh0IDwtIHBhc3RlMCgiSFIgPSAiLCByb3VuZChIUiwgMiksICIgKCIsIHJvdW5kKGxvd2VyX0NJLCAyKSwgIi0iLCByb3VuZCh1cHBlcl9DSSwgMiksICIpOyBwID0gIiwgcm91bmQocF92YWx1ZSwgMykpCnByaW50KGxhYmVsX3RleHQpCmBgYAoKCgoK